Ridimensionare un'immagine in powerpoint 2007

Question

Mi sono guardato intorno. Tutto quello che sono riuscito a trovare è stato il ridimensionamento in Excel o Excel.

Sto incollando un'immagine da pdf e ho bisogno di un ridimensionamento e posizionamento con un clic.

Answer 1

Ho finalmente capito. Ecco cosa ho fatto, nel caso in cui qualcuno si trovi di fronte allo stesso problema. Questo ridimensiona l'immagine, la imposta nella posizione desiderata e la invia al retro.

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

Grazie per il codice. Volevo essere in grado di ridimensionare automaticamente un mucchio di schermate per adattarle alle dimensioni di una diapositiva. Immagino che anche altre persone potrebbero aver bisogno di farlo, quindi sto postando ciò che ho fatto.

Innanzitutto, in PowerPoint 2010 in Imposta pagina, ho impostato le diapositive su 16: 9 in modo che corrispondessero alle proporzioni del mio monitor/screenshot. Poi ho aggiunto una diapositiva vuota e incollato l'immagine per ogni schermata. Ho poi eseguito questo codice:

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

codice per installare un immagine in una slitta (modificare l'altezza e la larghezza secondo il requisito):

pptSlide.Shapes (1) .Height = 850: pptSlide.Shapes (1). Larghezza = 650