在 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。