请教大神：VBA怎样调整图片大小？谢！

白云无尽9987

请教大神：VBA怎样调整图片大小？谢！.rar (47.73 KB, 下载次数: 22)

2024-3-8 20:34 上传

点击文件名下载附件

红色箭头的两个参数怎样设置才能保持图片的源头尺寸不变？

1. Sub tt()
   
2. 
   
3.         MyPcName = "11.PNG"
   
4.         
   
5.         
   
6.         MyPath = ThisWorkbook.Path & "" & "pic" & "" & MyPcName
   
7.         Set Rng = Cells(5, 6).Resize(1, 2)
   
8.         
   
9.         
   
10.         ActiveSheet.Shapes.AddShape(msoShapeRectangle, Rng.Left, Rng.Top, 119 + 100, 119).Select '?
    
11.         
    
12.         Selection.ShapeRange.Fill.UserPicture MyPath & Rng.Text & exname
    
13.         Selection.ShapeRange.Line.Visible = msoFalse
    
14. 
    
15. End Sub
    

复制代码

taller

白云无尽9987

taller 发表于 2024-3-9 00:49

感谢大神帮助!

希望:
图片尺寸不变，图片尺寸与单元格无关
但是
这两个参数又是必须的，直接赋值又是模拟的
在天工ai的搜索有这样的提示(贴在下一楼)，赋值为(……，-1，-1)
好像很完美，但是没有成功


Sub InsertPicture()
    Dim shape As Shape
    Set shape = ActiveSheet.Shapes.AddPicture(Filename:="your_image_path", LinkToFile:=False, SaveWithDocument:=True, Left:=100, Top:=100, Width:-1, Height:-1)
End Sub

蓝桥玄霜

图片大小的例子：

taller

白云无尽9987 发表于 2024-3-9 09:03
感谢大神帮助!

希望:

图片尺寸不变，图片尺寸与单元格无关 - 这就更简单了，只需要 ActiveSheet.Pictures.Insert(MyPath)

插入图片有多种方法，这个需求不使用AddPicture，代码更简洁

taller