[求助]用宏实现自动调整图片大小

bmdsjxyw

如此精彩的解答焉能不顶！

脱壳的蜗牛

好货，谢谢楼上的各位大大了，8umsRPgW这个附件里，不知道为什么选择好图片后，没有缩放至跟单元格那样大小，而是只有很小很小一点。为什么啊

tcy119

学习了,山菊花老师,就是不错

china047

学习了!!!!

tianyk

做个记号
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '如果选择一个区域时，退出程序
If Target.Column <> 1 Then Exit Sub '如果选择的不是A列，退出程序
   Dim cFile$, oShape As Shape, nW, nH '声明变量
    Application.ScreenUpdating = False '禁止屏幕刷新
    Application.EnableEvents = False
    On Error Resume Next
    Set oShape = Me.Shapes("t_" & Target.Address(0, 0))
    If Not oShape Is Nothing Then Exit Sub '如果存在图片时，退出程序
    If ThisWorkbook.Application.Dialogs(342).Show Then '插入图片
    With Selection.ShapeRange '锁定图片大小
       .LockAspectRatio = msoFalse
       .Height = 353
       .Width = 536
    End With
        Target.Activate
    End If
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

lch7791

做个记号，有空学习一下

lrh788

学习一下！！！！！！！学习一下