Größe eines Bildes in Powerpoint 2007 ändern

Question

Ich sah mich um. Alles, was ich finden konnte, war die Größenanpassung in Excel oder Excel.

Ich bin ein Bild aus PDF einfügen und brauchen einen Klick Größenanpassung und Positionierung.

Answer 1

Ich habe es endlich .. Hier ist was ich getan habe, nur für den Fall, dass jemand mit demselben Problem konfrontiert ist. Damit wird das Bild neu skaliert, in die gewünschte Position gebracht und nach hinten gesendet.

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

Danke für den Code. Ich wollte in der Lage sein, eine Reihe von Screenshots automatisch an die Größe einer Folie anzupassen. Ich vermute, dass andere Leute das auch tun müssen, also poste ich, was ich getan habe.

Zuerst in PowerPoint 2010 in Seite einrichten, legte ich die Folien auf 16: 9, um die Proportionen meiner Monitor/Screenshots entsprechen. Dann habe ich eine leere Folie hinzugefügt und das Bild für jeden Screenshot eingefügt. Ich lief dann diesen Code:

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

Code, ein Bild in einer Folie zu passen (Änderung der Höhe und Breite wie pro Anforderung):

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