vba - 在 powerpoint 2007 中调整图片大小

Question

我环顾四周。我所能找到的只是在 Excel 中或通过 Excel 调整大小。

我正在粘贴 pdf 中的图片，需要一键调整大小和定位。

Answer 1

我终于明白了..这就是我所做的，以防万一有人面临同样的问题。这会重新调整图像大小，将其设置在所需位置并将其发送到后面。

Sub Resize()
    With ActiveWindow.Selection.ShapeRange
        .Height = 2.78 * 72  //72 is the multiplier for the inch
        .Width = 4.17 * 72
        .Left = 0.78 * 72
        .Top = 1.25 * 72
        .ZOrder msoSendToBack  // This sends picture to the back
    End With
End Sub

Answer 2

感谢您的代码。我希望能够自动调整一堆屏幕截图的大小以适应幻灯片的大小。我猜其他人可能也需要这样做，所以我发布了我所做的。

首先，在 PowerPoint 2010 的页面设置中，我将幻灯片设置为 16:9 以匹配我的显示器/屏幕截图的比例。然后我添加了一张空白幻灯片并粘贴了每个屏幕截图的图像。然后我运行了这段代码：

Sub ResizeAll()
For each tSlide in ActiveWindow.Presentation.Slides
    tSlide.Select
    With tSlide.Shapes.Item(1) 'assume a blank slide with one image added only
        .Select
        .Height = ActiveWindow.Presentation.PageSetup.SlideHeight
        .Width = ActiveWindow.Presentation.PageSetup.SlideWidth
        .Left = 0
        .Top = 0
    End With
Next
End Sub

Answer 3

将图像放入幻灯片中的代码（根据要求更改高度和宽度）：

pptSlide.Shapes(1).Height = 850：pptSlide.Shapes(1).Width = 650