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

在powerpoint 2007中调整图片大小

3 个答案: