24.03.2020, 16:56
Moin,
ich habe folgendes Problem.
Ich möchte über ein Makro Bilder von einer bestimmten Range in mehreren Tabellenblättern machen und über Copy-Paste in einer Power Point Präsentation, die sich im gleichen Verzeichnis befindet, einfügen.
Bislang kann mein Makro nur die Tabellenblätter durchgehen und von der Range einen Screenshot in den Zwischenspeicher schieben.
Die Präsentationsdatei heißt "praesentation.pptx". Die Folie Nr. 3 in der Datei soll immer ein Bild aufnehmen und bei mehreren Bildern vervielfältigt werden. Position und Größe müsste ich dann auch noch irgendwie festlegen.
Ich hoffe einer von euch, kann mir helfen. Ich weiß nicht mehr weiter. Googlen hat mir nur bedingt weiter geholfen.
Gruß Sascha
ich habe folgendes Problem.
Ich möchte über ein Makro Bilder von einer bestimmten Range in mehreren Tabellenblättern machen und über Copy-Paste in einer Power Point Präsentation, die sich im gleichen Verzeichnis befindet, einfügen.
Bislang kann mein Makro nur die Tabellenblätter durchgehen und von der Range einen Screenshot in den Zwischenspeicher schieben.
Code:
Sub screenshot()
Dim wkss As Worksheet
Dim count As Integer
Application.ScreenUpdating = False
count = 0
For Each wkss In Worksheets
If wkss.Name <> "Eingabe" And wkss.Name <> "Template" And wkss.Name <> "Maßnahmen" Then
wkss.Activate
'Screenshot
Range("B2:BA36").CopyPicture xlScreen, xlBitmap
End If
Next
Worksheets("Eingabe").Activate
Application.ScreenUpdating = True
End SubDie Präsentationsdatei heißt "praesentation.pptx". Die Folie Nr. 3 in der Datei soll immer ein Bild aufnehmen und bei mehreren Bildern vervielfältigt werden. Position und Größe müsste ich dann auch noch irgendwie festlegen.
Ich hoffe einer von euch, kann mir helfen. Ich weiß nicht mehr weiter. Googlen hat mir nur bedingt weiter geholfen.
Gruß Sascha
