运行时错误，1004” 不能取得类 Pictures 的 Insert 属性

这个错误通常是因为代码中的对象类型与实际对象不匹配。请确保你正在插入图片的对象是“Shapes”或“InlineShapes”，而不是“Pictures”。同时，你还需要检查你的代码，确保插入图片的语法正确。以下是一个基本的插入图片的代码示例：

Sub InsertPicture()
    Dim shp As Shape
    Set shp = ActiveSheet.Shapes.AddPicture("C:\Users\username\Pictures\example.jpg", _
        msoFalse, msoTrue, 0, 0, -1, -1)
End Sub

在这个示例中，我们使用了“Shapes”对象的“AddPicture”方法来插入图片，并将其保存在名为“shp”的变量中。你可以根据需要修改代码中的路径和位置参数。希望这可以帮助你解决问题。

相关问题

excel vba2010 不能取得类pictures的paste属性 怎么办

在Excel VBA 2010中，如果你试图通过`.Pictures`对象集来操作嵌入图片（如从剪贴板粘贴），可能会遇到`.Paste`属性不可用的情况，因为`.Pictures`集合主要用于管理插入的工作表中的图片，而不是来自剪贴板的内容。

如果你想要从剪贴板粘贴图片并保存到 Pictures 集合，你需要先明确地选择一个图片对象，然后使用`PastePicture`方法。下面是一个例子：

Sub PasteFromClipboard()
    ' Step 1: 清空当前图片
    ActiveSheet.Shapes.Pictures.Delete
    
    ' Step 2: 将剪贴板内容作为新图片粘贴到第一个空位
    Dim picShape As Shape
    For Each picShape In ActiveSheet.Shapes
        If picShape.Type = msoPicture And Not picShape.HasTextFrame Then
            Exit For
        End If
    Next picShape
    
    If picShape Is Nothing Then
        picShape = ActiveSheet.Shapes.AddPicture(Selection.Picture, msoFalse, msoFalse, 0, 0) ' 如果没有空位，新建一个
    Else
        picShape.Delete
    End If
    
    picShape.PastePicture Appearance:=xlPicture, Link:=True ' 这里使用了Appearance参数来指定图片外观，Link设置为True表示链接到源数据
End Sub

在这个例子中，我们首先删除了现有的图片，然后循环查找空的图片位置。如果没有空位，我们就添加一个新的。最后，我们使用`PastePicture`方法粘贴剪贴板内容，并将其链接至原数据。