excel选定图片并修改图片大小vba

下面是一段 VBA 代码，可用于选定工作表中的图片并更改其大小：

Sub resizeImage()
    Dim pic As Shape
    Dim scaleFactor As Double
    Dim width As Double, height As Double
    
    '选择图片
    Set pic = Application.InputBox("请选定要调整大小的图片。", "选择图片", Type:=8)
    
    '获取图片当前大小
    width = pic.Width
    height = pic.Height
    
    '请求用户输入缩放比例
    scaleFactor = Application.InputBox("请输入缩放比例（例如，0.5 表示缩小一半）。", "缩放比例", Type:=1)
    
    '重新调整图片大小
    pic.Width = width * scaleFactor
    pic.Height = height * scaleFactor
End Sub

请注意，此代码假定您只有一个图形对象（即一张图片）。如果您有多个图形对象，请使用循环遍历它们。此外，此代码未对用户输入进行任何验证，因此可能会出现错误。您应该添加适当的错误处理代码以提高代码的健壮性。