excel修改图片大小vba

以下是将图片大小修改为指定尺寸的VBA代码：

Sub ChangePictureSize() Dim myPicture As Shape Set myPicture = ActiveSheet.Shapes("Picture 1") '将“Picture 1”替换为您的图片名称 myPicture.ScaleHeight 0.5, msoTrue '将高度缩小50% myPicture.ScaleWidth 0.5, msoTrue '将宽度缩小50% End Sub

您可以根据需要修改代码中的百分比来调整图片大小。如果您要将图片大小更改为特定尺寸，请使用以下代码：

Sub ChangePictureSize() Dim myPicture As Shape Set myPicture = ActiveSheet.Shapes("Picture 1") '将“Picture 1”替换为您的图片名称 myPicture.Height = 100 '将高度设置为100个单位 myPicture.Width = 100 '将宽度设置为100个单位 End Sub

将“100”替换为您要设置的实际尺寸。这个代码将图片大小固定为100 x 100。