粘贴FSO中选定的图片

Question

Dim p As Picture
Dim sPath As String, sFileName As String, s As String

sPath = "C:\Users\Vivek\Downloads\SMCS\"

'Open browser to select a picture
Thisfile = Application.GetOpenFilename

sFileName = Thisfile
s = sPath & sFileName
ActiveSheet.Pictures.insert (s)

这段代码给出了一个错误1004:插入图片类的方法失败。

我希望粘贴复制到单元格C6中的工作表(“控制台”)中的图片。

Answer 1

检查您的保护和权限。这似乎是可行的：

Sub GetAPicture()
   Dim s As String, sh As Worksheet
   s = "C:\TestFolder\tempxx.jpg"
   Set sh = ActiveSheet
   sh.Pictures.Insert (s)
End Sub