在 PowerPoint 中粘贴图像（excel 表格）

Question

我正在尝试通过 VBA 将 excel 表格作为图片粘贴到 PPT 中，但图像不是编码所需的形状

要求坐标是：

Height 14.80
Width 23.28
Top 2.13
Left 5.3

output 坐标如下：

H-18.73 CM
W-23.28 CM
Horizontal-5.3 CM
Vertical-2.13

下面是我的代码：

Range(cel.Value).Copy
newPowerPoint.ActiveWindow.View.GotoSlide cel.Offset(0, -1).Value
Set activeSlide = newPowerPoint.ActivePresentation.Slides(cel.Offset(0, -1).Value)
activeSlide.Shapes.PasteSpecial(DataType:=ppPasteEnhancedMetafile).Select
newPowerPoint.ActiveWindow.Selection.ShapeRange.Height = Application.CentimetersToPoints(14.80)
newPowerPoint.ActiveWindow.Selection.ShapeRange.Width = Application.CentimetersToPoints(23.28)
newPowerPoint.ActiveWindow.Selection.ShapeRange.Left = Application.CentimetersToPoints(2.13)
newPowerPoint.ActiveWindow.Selection.ShapeRange.Top = Application.CentimetersToPoints(5.3) 

Answer 1

好的解决方法是将形状放置在您想要的位置并使用 Debug.print 以点为单位读取 position。