Productpresentatie in Powerpoint genereren vanuit Excel?

[bezbro5]

Fantastisch!
Kan nu alleen nog enkel de informatie vanaf kolom D in tekstvak 2 opgenomen worden, i.p.v. vanaf kolom A? Dan istie af!

 

[snb]

Sub Powerpoint_maken()
    sn = Blad1.Cells(1).CurrentRegion
    
    With CreateObject("PowerPoint.Application")
        With .Presentations.Add
            For j = 2 To UBound(sn)
                With .Slides.Add(j - 1, 12).Shapes
                     .AddPicture sn(j, 1), True, False, 20, 20, 400, 400
                     .AddTextbox(1, 5, 450, 400, 50).TextEffect.Text = sn(j, 3) & " - " & sn(j, 4)
                     .AddTextbox(1, 5, 450, 400, 50).TextEffect.Text = Join(Array(sn(j, 5), sn(j, 6), sn(j, 7)), vbLf)
                End With
            Next
        End With

        .Visible = True
    End With
End Sub

 

[bezbro5]

Dat is hem!!! Thanks!!

 

[bezbro5]

Nog een aanvulling: Als er in een cel in kolom A geen afbeelding staat, zou ik toch graag de macro door willen laten lopen. Kan hier een else-if omleiding voor worden gemaakt?

 

[snb]

Dat moet jou nu zo ongeveer zelf lukken.
Maar slim vind ik zo'n inconsistente opbouw van een gegevenswerkblad niet.
Ik zou eerder het werkblad aanpassen dan de macro.