VBA Excel ->在页码下方添加图片

Sub AddImage()
    Dim ws As Worksheet
    Dim img As Picture
    Dim imgPath As String
    Dim imgLeft As Double
    Dim imgTop As Double
    
    ' 设置图片路径
    imgPath = "C:\path\to\image.jpg"
    
    ' 设置图片位置
    imgLeft = 100
    imgTop = 100
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 在工作表中添加图片
    Set img = ws.Pictures.Insert(imgPath)
    
    ' 设置图片位置和大小
    With img
        .Left = imgLeft
        .Top = imgTop
        .ShapeRange.LockAspectRatio = msoFalse
        .ShapeRange.Width = 200
        .ShapeRange.Height = 200
    End With
End Sub