我写了这段代码:
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)
应该没事