|
在楼主xajh_sh 的基础上,我又改了下代码,可以使得图片不锁定比例,直接按选择单元格自适应大小,下面是代码:
Sub 插入的图片根据选择的单元格自动变更大小居中()
Dim M, W1, H1 As String '获取图片信息
M = Selection.ShapeRange.Name
W1 = Selection.ShapeRange.Width
H1 = Selection.ShapeRange.Height
Dim D As Range '选单元格
Set D = Application.InputBox(prompt:="请选择插入图片的单元格,然后确定", Type:=8)
Dim L, T, W, H As String '获取选择的单元格信息
L = D.Left
T = D.Top
W = D.Width
H = D.Height
ActiveSheet.Shapes(M).Select '重新选择图片
Selection.ShapeRange.Left = L '移动图片与选择的单元格左上角重合
Selection.ShapeRange.Top = T
Selection.ShapeRange.LockAspectRatio = msofource '使图片不锁定比例
Selection.ShapeRange.Height = H
Selection.ShapeRange.Width = W
With Selection '定义图片大小位置随单元格变化而变化
.Placement = xlMoveAndSize
End With
End Sub |
|