Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Makro zum Exportieren von Tabellen als Bilder in Powerpoint |
12.04.2021 17:21:04 |
Tiro |
|
|
|
12.04.2021 18:53:40 |
Gast22389 |
|
|
|
12.04.2021 19:16:28 |
Tiro |
|
|
|
12.04.2021 19:33:14 |
ralf_b |
|
|
|
12.04.2021 20:00:42 |
Gast68811 |
|
|
Von:
Tiro |
Datum:
12.04.2021 17:21:04 |
Views:
736 |
Rating:
|
Antwort:
|
Thema:
Makro zum Exportieren von Tabellen als Bilder in Powerpoint |
Hi zusammen,
ich habe eine Powerpoint Präsentation mit sehr vielen Tabellen. Diese Tabellen möchte ich alle als Bild in einem Ordner abspeichern. Es können 2-6 Tabellen je Folie vorhanden sein und diese müssten in der richtigen Reihenfolge von links oben nach rechts unten in einem Ordner abgelegt werden. Der Dateiname sollte am besten eine fortlaufende Zahl sein also die erste Tabelle heiß "1.png", die zweite "2.png" usw.
Ich habe bisher folgenden Code zusammengehakt, der aber leider nicht funktioniert:
Sub Save_PowerPoint_Slide()
Dim sImagePath As String
Dim sImageName As String
Dim sPrefix As String
Dim oSlide As Slide '* Slide Object
Dim shp As Shape
Dim Ctr As Integer
On Error GoTo Err_ImageSave
Ctr = 0
sImagePath = "path"
sPrefix = Split(ActivePresentation.Name, ".")(0)
sImageName = sPrefix & "_" & oSlide.SlideIndex & ".png"
For Each oSlide In ActivePresentation.Slides
For Each shp In oSlide.Shapes
If shp.Type = msoTable Then
shp.Export sImagePath & "\" & sImageName & 1, ppShapeFormatPNG
Ctr = 1 + 1
End If
Next shp
Next oSlide
Err_ImageSave:
If Err <> 0 Then
MsgBox "no slides"
End If
End Sub
Grüße
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Makro zum Exportieren von Tabellen als Bilder in Powerpoint |
12.04.2021 17:21:04 |
Tiro |
|
|
|
12.04.2021 18:53:40 |
Gast22389 |
|
|
|
12.04.2021 19:16:28 |
Tiro |
|
|
|
12.04.2021 19:33:14 |
ralf_b |
|
|
|
12.04.2021 20:00:42 |
Gast68811 |
|
|