快速将PowerPoint中的图片调整为完整幻灯片大小

Question

任何人都知道一种方法可以将PowerPoint中的图片调整为完整的幻灯片大小，这比通过拖动移动和调整大小更快？我正在考虑使用表格和“在Word中打印”这样的“适合页面”。

Answer 1

在VBA中，您可以编写一个像这样的宏

Public Sub cFitImage()

Dim srSelection As ShapeRange
Set srSelection = Application.ActiveWindow.Selection.ShapeRange

Dim sObjet As Shape
For Each sObjet In srSelection

    iOldHeight = sObjet.Height
    iOldWidth = sObjet.Width

    With Application.ActiveWindow.Presentation.PageSetup

        If (iOldHeight / iOldWidth) > (.SlideHeight / .SlideWidth) Then
            sObjet.Height = .SlideHeight
            sObjet.Top = 0
            sObjet.Left = .SlideWidth / 2 - sObjet.Width / 2
        Else
            sObjet.Width = .SlideWidth
            sObjet.Left = 0
            sObjet.Top = .SlideHeight / 2 - sObjet.Height / 2
        End If
    End With

Next sObjet

End Sub

然后从apprpriate ribon（图像/格式）中的个性化按钮调用它，并选择一些图像。