錯誤1004：使用VBA添加水印時

Question

嗨，我正在使用此代碼在excel中添加水印：

With ActiveSheet.Shapes.AddTextEffect(msoTextEffect9, "Bozza","ArialBlack", 36#, msoFalse, msoFalse, 10, 10)
.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
.ScaleHeight 2, msoFalse, msoScaleFromBottomRight
.Fill.Visible = msoTrue
.Fill.Solid
.Fill.ForeColor.SchemeColor = 26
.Fill.Transparency = 0.5
.Shadow.Transparency = 0.5
.Line.Visible = msoFalse
'position at cell corner
.Top = Selection.Top
.Left = Selection.Left
End With

但我得到一個錯誤：

錯誤1004：應用程序定義的錯誤

我該如何解決？

Answer 1

我認為原因是使用Activesheet 。 您可能要選擇多個工作表並運行代碼。

您應該始終避免在VBA中使用Activesheet 。 而是嘗試使用Worksheets("Sheet Name")引用它們