利用VBA将图片插入和链接到形状填充

以下是一个利用VBA将图片插入和链接到形状填充的示例代码：

Sub InsertLinkedPicture()
    Dim picPath As String
    Dim shp As Shape
    
    ' 设置图片路径
    picPath = "C:\Path\To\Your\Image.jpg"
    
    ' 选择要插入图片的形状
    Set shp = ActiveSheet.Shapes(1)
    
    ' 删除形状之前的填充
    shp.Fill.Reset
    
    ' 插入图片并链接到形状的填充
    shp.Fill.UserPicture picPath
    
    ' 设置形状的填充类型为图片填充
    shp.Fill.Type = msoFillPicture
    
    ' 设置形状的填充选项为链接到文件
    shp.Fill.UserPicture picPath, msoFalse, msoTrue
    
End Sub

这段代码将会在活动工作表中的第一个形状上插入指定路径的图片，并将其链接到形状的填充。请将 picPath 变量中的路径替换为您自己的图片路径。