|
Hallo, dies ist mein erster Beitrag hier und ich hoffe, dass er verständlich ist und ich Hilfe bekommen :O)
Ich möchte in Powerpoint folgendes erreichen:
Auf der aktuell ausgewählten Seite sollen Screenshots von Slides eingefügt werden, die im Slidesorter view ausgewählt werden sollen:
-
Auslesen der aktuellen Seite
-
Wechseln in Slidesorter view
-
Auffordern, die entsprechenden Seiten zu selektieren (z.B. 3,5,8,9)
-
Wieder die vorher aktuelle Seite aufrufen
-
die vorher im slidesorter view selektieren Seiten auf dieser Seite als png einfügen
Ich poste mal meinen angefangenen Code mit, obwohl er vielleicht nicht von Nutzen ist:
Ich habe bereits in Userform, das den Aufruf macht die Slides zu sortieren, daher das me.hide am Ende.
Private Sub ButtonGo_Click()
Dim oShape As Shape
Dim SlideCounter As Integer
Dim X As Integer
Dim oCurrentslide As Integer
oCurrentslide = ActiveWindow.View.Slide.SlideIndex
If ActiveWindow.ViewType <> ppViewSlideSorter Then
ActiveWindow.ViewType = ppViewSlideSorter
End If
Dim oSlide As Slide
Dim cSlides As New Collection
For Each oSlide In ActiveWindow.Selection.sliderange
oSlide.Copy
ActiveWindow.ViewType = ppViewNormal
ActiveWindow.View.PasteSpecial ppPastePNG ' Just one shape; now selected
ActiveWindow.Selection.ShapeRange(1).Left = 20
ActiveWindow.Selection.ShapeRange(1).Top = 250
'SetPictureShadow ActiveWindow.Selection.ShapeRange(1)
Next oSlide
Me.hide
End Sub
Vielen Dank schonmal,
bin gespannt ob es überhaupt möglich ist ...
|