[算表] VBA 贴上图片到PPT的怪问题

楼主: kogar (哈哈哥)   2022-05-10 16:29:26
软件:EXCEL
版本:2010
小弟发生一件怪事
我用VBA写了一段程式,把EXCEL一部分的RANGE贴到PPT上
如下
Worksheets(i).Select
Range("a1:s22").Select
Selection.Copy
currentSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select
newPP.ActiveWindow.Selection.ShapeRange.Left = 80
newPP.ActiveWindow.Selection.ShapeRange.Width = 810
newPP.ActiveWindow.Selection.ShapeRange.Top = 80
但不知道为什么,我逐步执行来看
COPY的RANGE是A1:S22没错
但贴上时,图片会被截断
会变成贴上大约是A1:N22这个RANGE
有够怪
如果改成ppPasteOLEObject就没问题啦
但ppPasteOLEObject分辨率就比较差,我还是想贴图片
可以请问版上的高手,
这是什么问题吗?
谢谢

Links booklink

Contact Us: admin [ a t ] ucptt.com