错误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")

引用它们