在Excel中使用VBA进行插入图片（相片等）的实例

发布日期：2025-09-07 02:42    点击次数：198

以下是一个使用VBA在Excel中插入图片的简单示例代码：

Sub InsertPicture()

    Dim picturePath As String

    Dim picture As Picture

    ' 图片路径

    picturePath = "C:\path\to\your\picture.jpg"

    ' 在Excel的A1单元格插入图片

    Set picture = ActiveSheet.Pictures.Insert(picturePath)

    ' 设置图片位置

    With picture

        .Left = ActiveSheet.Range("A1").Left

        .Top = ActiveSheet.Range("A1").Top

        .Width = 100 ' 可以调整图片的宽度

        .Height = 100 ' 可以调整图片的高度

    End With

    ' 可选：使图片随单元格调整

    picture.ShapeRange.LockAspectRatio = msoFalse

End Sub

确保将picturePath变量的值替换为您要插入的图片的实际路径。代码中的ActiveSheet指的是当前活动工作表，您可以根据需要更改为其他工作表。此外，.Width和.Height属性可以设置为您想要的尺寸。如果您想要图片随单元格调整大小，可以取消注释最后一行代码。

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。