Txtfelder in Powerpoint aus Excel füllen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo zusammen,
mittlerweile habe ich es zumindest hinbekommen, die Daten aus dem markierten Zellenbereich in Excel in einzelne Textfelder Powerpoint zu schreiben. Wo ich momentan hänge, ist die Anordnung der einzelnen Textfelder auf der Powerpointfolie, so dass wieder eine Tabellenstruktur zu erkennen ist. Weitere Herausforderung (zumindest für mich) ist, dass die Textfelder bzw. deren Daten in Excel auch unterschiedlich groß, also unterschiedliche Spaltenbreiten haben (z. B. Spaltenüberschriften, Länge der Straßen etc.). Das heißt, in dem VBA Code müsste zunächst die "breiteste" Spalte ermittelt werden, damit der Abstand der einzelnen Textfelder entsprechend bestimmt werden kann. Aktuell habe ich die Positionierung mittels Multiplikation und dem Counter vorgenommen (überhaupt nicht sinnvoll, eher als Test gewesen)
Kann mir bitte jemand einen Tipp geben?
Mein bisheriger Code sieht aus wie folgt:

Sub Export_Range_into_Txtfld()
Dim pp As New PowerPoint.Application
Dim ppt As PowerPoint.Presentation
Dim sld As PowerPoint.Slide
Dim shptxtfld As PowerPoint.Shape
Dim i As Long, j As Long
Dim myTextBox As Shape
Dim rng As Excel.Range
Dim sht As Excel.Worksheet
Set rng = Selection
pp.Visible = True
If pp.Presentations.Count = 0 Then
Set ppt = pp.Presentations.Add
Else
Set ppt = pp.ActivePresentation
End If
Set sld = ppt.Slides.Add(1, ppLayoutTitleOnly)
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
Set shptxtfld = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50 + (i * _
50), 100 + (j * 50), 200, 50)
shptxtfld.TextFrame.TextRange.Text = rng.Cells(i, j).Text
Next
Next
For i = 1 To rng.Rows.Count
For j = 1 To rng.Columns.Count
If (rng.Cells(i, j).MergeArea.Cells.Count > 1) And _
(rng.Cells(i, j).Text  "") Then
shpTable.Table.Cell(i, j).Merge _
shpTable.Table.Cell(i + rng.Cells(i, j).MergeArea.Rows.Count - 1, _
j + rng.Cells(i, j).MergeArea.Columns.Count - 1)
End If
Next
Next
sld.Shapes.Title.TextFrame.TextRange.Text = _
rng.Worksheet.Name & " - " & rng.Address
End Sub

Danke & Grüße

Hallo Firmus,
vielen Dank für Deine Rückmeldung. Ich habe den Width-parameter an entsprechender Stelle getestet und das funktioniert soweit. Allerdings ist es glaub ich nicht ganz das was ich suche - habe mich auch umständlich ausgedrückt. Was ich gerne hätte ist, dass die Textfelder auf der Powerpointfolie so angeordnet werden, dass es wieder der Tabellenstruktur aus der Excel entspricht. Problem habe ich bspw. dass eines Textfelder einen so lange Text beinhaltet und dadurch das benachbarte Text "überlappt". Ich denke von der Herangehensweise müsste es eig. sein wie folgt:
a) der Code prüft die markierten Zellen in Excel hinsichtlich Anzahl Zeichen und ermittelt den maximalen Wert (also die "größte" Zelle)
b) An der STelle der Anordung der Textfelder, wird dann der maximale Wert der Koordinate hinzugefügt, so dass dadurch es nicht mehr zu einer Überlappung der Textfelder kommen kann. Ich denke das müsste an folgender STelle im Code erfolgen

 1 To rng.Columns.Count
Set shptxtfld = sld.Shapes.AddTextbox(msoTextOrientationHorizontal, 50 +  _
(i * _
50), 100 + (j * 50), 200, 50)

Oder alternativ könnte man ggfs. nach dem alle Textfelder erstellt und beschrieben wurden, abschließend noch per VBA alle vorhanden Objekte der Folie ermitteln und ansprechend und gleichmäßig auf der Folie verteilen ohne einen Overlap der einzelnen Objekte zu haben. Aber da bin ich völlig überfragt, ob und geschweige denn wie das funktionieren könnte!?!
VG
TR

Beliebteste Forumthreads (12 Monate)

Txtfelder in Powerpoint aus Excel füllen

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Txtfelder in Powerpoint aus Excel füllen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread