使用VBA将单元格范围从MS Excel粘贴到MS PowerPoint

Question

我正在使用下面的代码将Excel中的单元格范围作为图像粘贴到PowerPoint中。

xlApp.Worksheets(5).Range("B2:D9").Copy
Set shp1 = ActivePresentation.Slides(4).Shapes.PasteSpecial(ppPasteEnhancedMetafile)(1)

With shp1
' Set position:
.Left = 22
.Top = 95
' Set size:
.Height = 250
.Width = 280
End With

但是不会按照定义的大小（即高度250和宽度280）粘贴图像。根据我的理解，它在粘贴时会考虑图像的长宽比，并且不会使图像变形。 但是我不想要那个。 我只希望它覆盖我想要在PowerPoint上的整个区域。

Answer 1

在设置宽度和高度之前，您需要先关闭Aspectratio参数 ：

With shp1
' Set position:
.Left = 22
.Top = 95
' Set size:
.LockAspectRatio = msoFalse
.Height = 250
.Width = 280
End With