Question

我不知道为什么我在运行时错误424（需要对象）尝试在单元格中设置图像计数=数字。任何帮助将不胜感激

Public Function InsertPictureInCell() As Object


         ImageCount = CInt(sheetImages.Cells(1, 4))
         Dim x As Object


            sheetImages.Paste
    Set x = sheetImages.Shapes(Selection)
    x.top = [C4].top
    x.Left = [C4].Left
    x.Height = [C4].Height
    Selection.ShapeRange.IncrementTop [C3].Height * ImageCount 

        'sheetImages.Shapes(picname).IncrementTop [C3].Height * ImageCount
        sheetImages.Cells(ImageCount + 2, 2) = CStr(x.Name)
        'sheetProject.Cells(12, 2) = PictureFileName
End Function

Answer 1

sheetImages似乎是一张工作表，但我不知道它是设置

Answer 2

看起来您尚未声明sheetImages（或实际您的变量的任何）。

除此之外，没有赋值到 sheetImages，所以除非它的范围在其他地方被初始化，否则它在这个函数范围内被初始化为一个空变量，这将提升如果你将它视为一个对象，则会出现424错误，因为它不是一个对象。

使用代码模块顶部的Option Explicit来帮助强制执行变量声明（并通过编译错误提醒您输入错误）。

即使变量是整数，也需要对象

2 个答案: