如何用VBA将图片大小调整为EXCELL表格窗口大小相同

709320636

求大神帮助！如何用VBA将图片大小调整为EXCELL表格窗口相同。非常感谢！

流浪星星

如何用VBA将图片大小调整为表格的窗口相同.zip (13.4 KB, 下载次数: 23)

2024-1-2 18:40 上传

点击文件名下载附件

bj917

Sub AutoFitPic()
Dim picW As Single, picH As Single
Dim cellW As Single, cellH As Single
Dim rtoW As Single, rtoH As Single
cellW = ActiveCell.Width
cellH = ActiveCell.Height
picW = Selection.ShapeRange.Width
picH = Selection.ShapeRange.Height
'重设图片的宽和高
rtoW = cellW / picW * 0.95
rtoH = cellH / picH * 0.95
If rtoW < rtoH Then
    'Selection.ShapeRange.ScaleWidth rtoW, msoFalse, msoScaleFromTopLeft  '适应列宽
Else
    'Selection.ShapeRange.ScaleHeight rtoH, msoFalse, msoScaleFromTopLeft '适应行高
End If
Selection.ShapeRange.ScaleHeight rtoH, msoFalse, msoScaleFromTopLeft
picW = Selection.ShapeRange.Width
picH = Selection.ShapeRange.Height
'锁定图片锁定纵横比
'Selection.ShapeRange.LockAspectRatio = msoTrue
'图片的位置与大小随单元格变化而变化
'Selection.Placement = xlMoveAndSize
'Selection.ShapeRange.IncrementLeft (cellW - picW) / 2
Selection.ShapeRange.IncrementLeft 10
Selection.ShapeRange.IncrementTop (cellH - picH) / 2
End Sub

709320636

bj917 发表于 2024-1-6 21:02
Sub AutoFitPic()
Dim picW As Single, picH As Single
Dim cellW As Single, cellH As Single

感谢流浪星星！感谢bj917! 向高手致敬！向你们学习！