Question

我的代码将一个形状粘贴到Sheet1上并尝试调整宽度，在下面的此行上出现错误。

Worksheets（“全球季刊”）。Shapes（图片1）。Width= 1607.76

GlobalFile.Activate
Sheets("Sheet1").Select
ActiveSheet.Paste Destination:=Range("B25")
Selection.Name = "Picture1"
Worksheets("Global Quarterly").Shapes(Picture1).Width = 1607.76
Range("A1").Select
Application.ScreenUpdating = False

Answer 1

Option Explicit可能会丢失，使Picture1成为未声明的变量，因此在运行时，您要将Variant/Empty传递给Worksheet.Shapes集合的Item属性吸气剂-它既不是索引也不是形状的名称，所以您得到一个……可以说是令人困惑的运行时错误：这里抛出的更本能的错误将是错误5，表示“无效的参数或过程调用” “-抛出的是Shapes.Item成员（隐式）；执行甚至无法进行Shape.Width成员调用。

在每个模块的顶部指定Option Explicit；在声明所有变量之前，这将使您的代码不可编译，这有助于防止输入错误，并在变量使用上施加最低程度的要求。

如果形状名称为"Picture1"（请注意字符串定界符/双引号），则需要执行as Lodi hinted：

Worksheets("Global Quarterly").Shapes("Picture1").Width = 1607.76

运行时错误-2147024809（80070057）：调整形状

1 个答案: