Быстрое изменение размера изображения в PowerPoint до полного размера слайда

Question

Кто-нибудь знает способ изменения размера изображения в PowerPoint до полного размера слайда, который быстрее, чем перемещение и изменение размера при перетаскивании? Я думаю что-то вроде «Fit to Page» со столами и печатью в 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 (изображения/формат) с некоторыми выбранных изображений.