在VBA中，我如何順序地將圖像添加到每張幻燈片？

Question

我需要從0開始編號的圖像的序列添加 - 在56（0，56，112等）的步驟1400中呈現的每個滑動，然後使背景透明

到目前爲止，我有：

Sub InsertImage() 

ActiveWindow.Selection.SlideRange.Shapes.AddPicture(_ 
FileName:="C:\Folder\Image0.bmp", _ 
LinkToFile:=msoFalse, _ 
SaveWithDocument:=msoTrue, Left:=25, Top:=90, _ 
Width:=265, Height:=398.5).Select 

End Sub 

Sub MakeTransparent() 

    With ActiveWindow.Selection.ShapeRange 
    .PictureFormat.TransparentBackground = msoTrue 
    .PictureFormat.TransparencyColor = RGB(41, 41, 241) 
    .Fill.Visible = msoFalse 
    End With 

End Sub 

哪個會單獨做每一個，但是這並不比一個一個地去做更快？

任何幫助非常感謝！

感謝，

勞倫

Answer 1

假設你想在幻燈片1開始，並且你已經有了足夠的幻燈片演示文稿中包含的所有圖像，嘗試這樣的事情（空氣總碼）：

Sub InsertImages() 

Dim lImageNumber as Long 
Dim lSlideNumber as Long 
Dim oSh as Shape 

lSlideNumber = 1 ' Slide counter 

For lImageNumber = 0 to 1400 Step 56 
    Set oSh = ActivePresentation.Slides(lSlideNumber).Shapes.AddPicture(_ 
    FileName:="C:\Folder\Image" & cstr(lImageNumber) & ".bmp", _ 
    LinkToFile:=msoFalse, _ 
    SaveWithDocument:=msoTrue, Left:=25, Top:=90, _ 
    Width:=265, Height:=398.5) 

    lSlideNumber = lSlideNumber + 1 

    With oSh 
    .PictureFormat.TransparentBackground = msoTrue 
    .PictureFormat.TransparencyColor = RGB(41, 41, 241) 
    .Fill.Visible = msoFalse 
    End With 

Next 

End Sub