vba 图片外链，vba set

什么是VBA图片外链

VBA（Visual Basic for Applications）是一种集成开发环境，它可以方便我们编写宏，使我们的工作更加高效。VBA图片外链是指在VBA代码中将图片插入到电子表格或Word文档中，同时图片链接到另一个文件或者URL。这种方法可以使我们在电子表格或文档中嵌入图片，同时又不会增加文件的大小。

如何使用VBA实现图片外链

要使用VBA实现图片外链，首先需要打开电子表格或Word文档，并进入VBA编辑器。接着，在代码窗口中使用以下代码：

Sub InsertLinkedPicture()
    Dim myPic As Shape
    Set myPic = ActiveSheet.Shapes.AddPicture(Filename:=\"D:\\Pictures\\Nature.jpg\", _
    LinkToFile:=msoTrue, SaveWithDocument:=msoFalse, Left:=10, Top:=10, Width:=-1, Height:=-1)
    myPic.Select
End Sub

这段代码会在指定的位置插入一个链接到指定文件的图片。其中，Filename是图片文件所在的路径；LinkToFile设为msoTrue表示链接到文件，设为msoFalse表示链接到地址；SaveWithDocument设为msoFalse表示不随文档一起保存；Left和Top是指定图片位置的左上角坐标；Width和Height分别为图片的宽度和高度。当执行完这段代码后，就可以在指定位置看到插入的链接图片了。

如何用VBA删除链接图片

有时候我们需要删除链接的图片，可以使用以下VBA代码：

Sub DeleteLinkedPicture()
    Dim pic As Shape
    For Each pic In ActiveSheet.Shapes
        If TypeOf pic.OLEFormat.Object Is Picture Then
            If pic.OLEFormat.LinkSource  \"\" Then
                pic.Delete
            End If
        End If
    Next
End Sub

这段代码会删除在ActiveWorksheet中被链接的图片。如果仅需删除指定位置的链接图片，可以使用以下代码：

Sub DeleteLinkedPictureByLocation()
    For Each shp In ActiveSheet.Shapes
        If shp.Left = 10 And shp.Top = 10 Then
            shp.Delete
        End If
    Next shp
End Sub

这段代码会删除左上角坐标为(10,10)的链接图片。