vba处理图片大小问题

495153973

在论坛搜了很多，都是批量自动插入，批量更改，我的需求更简单一些

图片是已经手动放到excel里，然后点击图片，点按钮，自动调整图片宽和高
采用了录制宏
Sub 图片()
    Selection.ShapeRange.LockAspectRatio = msoFalse   '取消纵横比锁定
   Selection.ShapeRange.Height = 108   
   Selection.ShapeRange.Width = 220
End Sub
这行代码在vb编辑器里鼠标选中图片再点运行可以，退出来用按钮点击就提示438错误，对象不支持该属性或方法，
对vba 一知半解，麻烦大佬看看，在wps里运行的，环境应该没问题

excel玉米

你没有选中图片对象

杨建营

Public Sub 图片()

    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    On Error Resume Next
    Dim picW As Single, picH As Single
    Dim cellW As Single, cellH As Single
    Dim rtoW As Single, rtoH As Single
   
    mypath = "。。。" ' 指定具体的文件夹
    picname = Dir(mypath & "。。。")'图片名称
    Range("B6:H18").Select'选择插入图片的单元格
    ActiveSheet.Pictures.Insert(mypath & picname).Select
   
    Selection.ShapeRange.LockAspectRatio = msoFalse '取消比例锁定
    cellW = ActiveCell.MergeArea.Width
    cellH = ActiveCell.MergeArea.Height
    picW = Selection.ShapeRange.Width
    picH = Selection.ShapeRange.Height
    rtoW = cellW / picW
    rtoH = cellH / picH
    Selection.ShapeRange.ScaleWidth rtoW, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight rtoH, msoFalse, msoScaleFromTopLeft
    Selection.Cut
    ActiveSheet.Pictures.Paste
      
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

这个是我自己用的，加了简单的注释，你自己按需要修改一下。

3190496160

上传附件，具体描述需求，才能及时得到别人的帮助