VBA: Textfeldinhalt an PowerPoint überge

MarC · 2021-01-26T13:25:01+00:00

Hallöchen, ich möchte den Inhalt eines Textfeldes an eine Tabelle in PowerPoint übergeben und erhalte immer die Meldung 438 das Objekt unterstützt das nicht. Mit Value habe ich es schon versucht das ging auch nicht. Woran könnte es denn liegen dass das nicht geht? pptxVorlage.Tables(1).Cell(1, 1).Range = ThisWorkbook.Worksheets("Sales").Shapes("Textfeld 200").TextFrame.TextRange.Text PS: ich habe nur eine Tabelle in der Datei, aber der Name steht nirgends. Wie findet man den denn raus?

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

Hallo Marc,
hier noch mal ein Versuch:
Es ging um die Frage, den Tabellennamen der aktuellen Tabelle herauszubekommen, um diesen dann später verwenden zu können.
Dazu kann das PPt-Makro oder der erste Teil des Excelcodes verwendet werden.
Den ermittelten Tabellennamen dann in den zweiten Teil des Excelmakros einsetzen.
Ich unterstelle, dass Du in pptxVorlage schon Deine Folie referenziert hast, dann brauchst Du ja nur den zweiten Teil des Codes.

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

_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

VBA: Textfeldinhalt an PowerPoint überge

Forumthread: VBA: Textfeldinhalt an PowerPoint überge

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA: Textfeldinhalt an PowerPoint überge

Forumthread: VBA: Textfeldinhalt an PowerPoint überge

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread