为什么当在子vb6上传递参数时我检索错误?

Gas*_*a87 0 vb6 arguments

我写了这段代码:

Sub Insert_Pic_From_File2(PicPath As String, ByVal row As Integer, ByVal col As Integer)


Dim Pic As Picture, Sh As Shape, Rng As Range

Set Rng = Range.Cells(row, col)
Set Rng = Rng.MergeArea

With Rng
    Set Sh = ActiveSheet.Shapes.AddPicture(Filename:=PicPath, linkToFile:=msoFalse, SaveWithDocument:=msoTrue, Left:=.Left, Top:=.Top, Width:=.Width, Height:=.Height)
    Sh.LockAspectRatio = msoFalse
End With

Set Sh = Nothing
Set Rng = Nothing

End Sub
Run Code Online (Sandbox Code Playgroud)

我从这行说出来:

Insert_Pic_From_File2 ("D:\Area Open\ok.png", y, col_result)
Run Code Online (Sandbox Code Playgroud)

y和col_result都是整数.

当我按下输入程序时出现此错误(意大利语)

errore di compilazione:Previsto:=

我觉得用英语说:

编译错误:需要:=

为什么这个?如果我删除参数y和col_result似乎没有问题,但没有参数.

非常感谢.

小智 6

不要在参数周围使用括号!它们仅在使用冗余"Call"语句或返回值的函数时使用.

Insert_Pic_From_File2 "D:\Area Open\ok.png", y, col_result
Run Code Online (Sandbox Code Playgroud)

应该没事