VBA: Textfeldinhalt an PowerPoint überge

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc] Sub Makro_in_PowerPoint() Dim sFole As String, sTabelle As String sFolie = ActiveWindow.View.Slide.Name ' Name der Folie sTabelle = ActiveWindow.Selection.ShapeRange.Name ' Name der markierten Tabelle ' Beispiel ActivePresentation.Slides(sFolie).Shapes(sTabelle).Table.Cell(1, 1).Shape.TextFrame.TextRange.Text _ = "Mein Wert" End Sub Sub Makro_in_Excel() Dim pptApp As Object, pptxVorlage As Object Dim sTabelle As String Set pptApp = GetObject(, "PowerPoint.Application") Set pptxVorlage = pptApp.ActivePresentation Set pptxVorlage = pptApp.ActiveWindow.View.Slide sTabelle = pptApp.ActiveWindow.Selection.ShapeRange.Name ' Name der markierten Tabelle pptxVorlage.Shapes(sTabelle).Table.Cell(1, 1).Shape.TextFrame.TextRange.Text _ = "Mein Wert" End Sub

Hm dann check ich es nicht. Ich bekomme immer an der Stelle die Meldung Laufzeitfehler .....

sTabelle = pptApp.ActiveWindow.Selection.ShapeRange.Name = "Tabelle 1" ' Name der markierten Tabelle

Vielleicht hätte ich dazu sagen müssen das ich die Tabelle nicht markiert habe. Ich bin davon ausgegangen das es sich so ähnlich verhält wie von schreibe von excel zu excel oder von excel in Word. Aber bei PP ist es wohl etwas anders. Aktuell sieht der Code so aus:

Sub Create_Presentation()
Dim Pfad As String
Dim appPowerPoint As Object
Dim pptxVorlage As Object
Dim pInt As Integer
Set appPowerPoint = CreateObject("PowerPoint.Application")
appPowerPoint.Visible = True
Application.ScreenUpdating = False
If appPowerPoint.Presentations.Count = 0 Then
Set pptxVorlage = appPowerPoint.Presentations.Open("C:\Users\xxxxxx\Vorlage Report.pptx" _
, WithWindow:=msoTrue, Untitled:=msoTrue)
End If
pptxVorlage.Slides(2).Shapes("Tabelle 1").Cell(1, 1).Shape.TextFrame.TextRange.Text =  _
ThisWorkbook.Worksheets("Sales").Shapes("Textfeld 200").TextFrame.TextRange.Text
Sheets("Sales").ChartObjects("Diagramm 1").Copy
pptxVorlage.Slides(2).Shapes.Paste
pInt = pptxVorlage.Slides(2).Shapes.Count
pptxVorlage.Slides(2).Shapes(pInt).Name = "Diagramm 1"
pptxVorlage.Slides(2).Shapes("Diagramm 1").Left = 248
pptxVorlage.Slides(2).Shapes("Diagramm 1").Top = 70
pptxVorlage.SaveAs Pfad & "pptx"
Set appPowerPoint = Nothing
pptxVorlage.Close
End Sub

Code: [Cc] Sub Makro_in_Excel() Dim pptApp As Object, pptxVorlage As Object ' Nur zur Ermittlung des Tabellenamens, die Tabelle ist markiert Set pptApp = GetObject(, "PowerPoint.Application") ' PPt-Object referenzieren Set pptxVorlage = pptApp.ActiveWindow.View.Slide ' Aktuelle Folie referenzieren MsgBox pptApp.ActiveWindow.Selection.ShapeRange.Name ' Name der markierten Tabelle ' Dein Code angepasst, PPt-Tabellenname ggf. anpassen ' Unterstellt wurde, dass Du die Folie schon in pptxVorlage referenziert hast pptxVorlage.Shapes("Tabelle 6").Table.Cell(1, 1).Shape.TextFrame.TextRange.Text _ = ThisWorkbook.Worksheets("Sales").Shapes("Textfeld 200").TextFrame.TextRange.Text End Sub

Beliebteste Forumthreads (12 Monate)

VBA: Textfeldinhalt an PowerPoint überge

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Textfeldinhalt an PowerPoint überge

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread