VBA：插入图片并调整大小和裁剪以适合

编程问答 2022-05-30

问题描述

我正在尝试创建一个可以插入图片的文件，它会自动调整大小但保持纵横比。 我发现如果删除图片或将 excel 发送给其他人，照片就会丢失。如何解决这个问题？ 对于不适合我想要的单元格的照片，我希望能够裁剪出图片的其余部分。而且还可以将其拖动到我想要的图片区域。
我想要图片的框架是 6 宽 12 高。

子图() 将 myPic 调暗为字符串

myPic = Application.GetopenFilename( _
    FileFilter:="Images (*.jpg;*.gif;*.png),*.jpg;*.gif;*.png",_
    Title:="Please select an image...")
    If myPic = "False" Then Exit Sub
 

Set pic = Application.ActiveSheet.Shapes.AddPicture(myPic,False,True,-1,1,-1)
'ActiveSheet.Pictures.Insert(szPicFileName'
Set Rng = Range(ActiveCell,ActiveCell.Offset(3,5))
    
    With pic
        .Height = Rng.Height
        .Width = Rng.Width
        .Left = Rng.Left
        .Top = Rng.Top
        .Locked = False
        

    End With

结束子

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

cropexcelexcelimageimageimageimage-resizingvba