使用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

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

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