Thay đổi kích thước ảnh trong powerpoint 2007

Question

Tôi nhìn xung quanh. Tất cả những gì tôi có thể tìm thấy là thay đổi kích thước trong Excel hoặc thông qua Excel.

Tôi đang dán ảnh từ pdf và cần chỉnh sửa kích thước và định vị bằng một cú nhấp chuột.

Answer 1

Cuối cùng tôi đã nhận được nó .. Đây là những gì tôi đã làm, chỉ trong trường hợp ai đó đang đối mặt với cùng một vấn đề. Việc này sẽ thay đổi kích thước hình ảnh, đặt nó ở vị trí mong muốn và gửi nó về phía sau.

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

Cảm ơn mã. Tôi muốn có thể tự động thay đổi kích thước một loạt ảnh chụp màn hình để vừa với kích thước của trang trình bày. Tôi đoán những người khác có thể cần phải làm điều này nữa, vì vậy tôi đăng những gì tôi đã làm.

Đầu tiên, trong PowerPoint 2010 trong Thiết lập trang, tôi đặt các trang trình bày là 16: 9 để phù hợp với tỷ lệ màn hình/ảnh chụp màn hình của tôi. Sau đó, tôi thêm một slide trắng và dán hình ảnh cho mỗi ảnh chụp màn hình. Sau đó tôi chạy mã này:

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

mã để phù hợp với một hình ảnh trong một slide (thay đổi chiều cao và chiều rộng theo yêu cầu):

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