2012-10-17 162 views
5

我環顧四周。我所能找到的只是在Excel或Excel中調整大小。在powerpoint 2007中調整圖片大小

我正在粘貼一張來自pdf的圖片,需要一次點擊調整大小和定位。

+1

需要更多信息。你究竟想做什麼? IOW,如果手動執行此操作,您將粘貼在圖片中,然後....什麼?如果您只需要一種方法來將圖片(或其他任何內容)的大小和位置設置到預先選定的區域,那麼在我的免費PPTools StarterSet加載項中就有一個工具。 http://www.pptools.com/starterset/ –

回答

8

我終於明白了..這是我做的,以防萬一有人面臨同樣的問題。 這將重新調整圖像的大小,將其設置在所需的位置並將其發送回去。

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 
2

感謝您的代碼。我希望能夠自動調整大量屏幕截圖以適應幻燈片的大小。我猜其他人可能也需要這樣做,所以我發佈了我所做的。

首先,在PowerPoint 2010的頁面設置中,我將幻燈片設置爲16:9以匹配顯示器/屏幕截圖的比例。然後我添加了一張空白幻燈片並粘貼了每張截圖的圖片。然後我跑這樣的代碼:

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 
0

代碼在滑動以適合的圖像(改變的高度和寬度按要求):

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