Question

我是VBA的新手，我正在尝试制作一个使用单元格内容作为要插入的图片文件名称的宏。我一直得到1004错误：图片类的插入方法失败。我该如何解决这个问题？

Sub simplepic()
'
' simplepic Macro
'
' Keyboard Shortcut: Ctrl+l
'
    ActiveCell.Select
    Dim picname As String
    picname = Range(ActiveCell)
    ActiveCell.Offset(rowOffset:=-1).Select
    ActiveSheet.Pictures.Insert ( _
        "C:\Users\Briet\Documents\PAJ\pic-presentation\Images\" & picname & ".jpg")
End Sub

Answer 1

你真的需要：

ActiveCell.Select
Dim picname As String
picname = Range(ActiveCell)

似乎你想要

Dim picname As String
picname = ActiveCell.Value

无需选择活动单元格（它处于活动状态，即已选中）
您不想根据活动单元格的值引用范围，是吗？你可能想要细胞的价值

下一个问题可能是您选择“此单元格以上的单元格”的方式。我发现以下代码工作正常（没有错误）：

ActiveCell.Select
Dim picname As String
picname = ActiveCell.Value
ActiveCell.Offset(-1, 0).Select
ActiveSheet.Pictures.Insert "C:\myPath\myPicture.png"

看看它是否适合您（使用适当的路径），然后重新添加内容直到失败，如果您仍然无法弄明白，请告诉我们。

VBA - .pictures.insert的语法不正确？图片类的插入方法失败

1 个答案: