在PowerPoint中将图片快速调整为完整的幻灯片大小(Quickly resize picture in PowerPoint to full slide size)

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

Anyone know a way to resize a picture in PowerPoint to full slide size that is quicker than moving and resizing by dragging? I'm thinking something like 'Fit to Page' with tables and printing in Word.

最满意答案

在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（图像/格式）中的个性化按钮中选择一些图像。

In VBA, you could write a macro like this

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

And call it from a personalized button in the apprpriate ribon (images/format) with some images selected.