从用户表单向工作表添加图像(excel vba)

Sub AddImageFromForm()
    Dim imagePath As String
    Dim imageName As String
    Dim imageExtension As String
    Dim imageTop As Double
    Dim imageLeft As Double
    Dim imageWidth As Double
    Dim imageHeight As Double
    
    ' 获取用户选择的图像文件路径
    imagePath = Application.GetOpenFilename("Image Files (*.jpg;*.jpeg;*.png;*.gif),*.jpg;*.jpeg;*.png;*.gif")
    
    ' 提取图像文件名和扩展名
    imageName = Mid(imagePath, InStrRev(imagePath, "\") + 1)
    imageExtension = Mid(imageName, InStrRev(imageName, ".") + 1)
    
    ' 设置图像插入位置和大小
    imageTop = 100
    imageLeft = 100
    imageWidth = 200
    imageHeight = 200
    
    ' 插入图像到工作表
    With ActiveSheet.Pictures.Insert(imagePath)
        .Name = "UserImage"
        .Top = imageTop
        .Left = imageLeft
        .Width = imageWidth
        .Height = imageHeight
    End With
    
    ' 清除选择的图像文件路径
    imagePath = ""
    
    ' 提示用户图像添加成功
    MsgBox "图像添加成功！"
End Sub