Herbers Excel-Forum - das Archiv

PowerPoint

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: PowerPoint
von: Pfälzer

Geschrieben am: 04.04.2005 14:26:04
Hallo Forum,
ich habe folgendes Problem:
Ich erstelle mit VBA diverse Diagramme und möchte diese dann per
VBA in eine PowerPoint-Vorlage an eine ganz bestimmte Stelle
bringen lassen.
Anschliesend möchte ich noch in PowerPoint mehrere Textboxen mit Inhalten aus bestimmten Zelle in Excel erzeugen und platzieren lassen.
Wäre super wenn mir jemand eine Anregung geben könnte.
Danke
Bild

Betrifft: AW: PowerPoint
von: Dani

Geschrieben am: 08.04.2005 08:07:02
Hallo Pfälzer,
ich hab mal was zusammengebastelt:
Sub CommandButton1_Click()
Dim ppApp As PowerPoint.Application
Set ppApp = New PowerPoint.Application     'PowerPoint wird gestartet
ppApp.Visible = True                       'PP ist sichtbar
ppApp.Presentations.Add                    'Präsentation wird erstellt
ppApp.ActivePresentation.Slides.Add Index:=1, Layout:=ppLayoutText 'Folie erstellen
ppApp.ActiveWindow.Selection.SlideRange.Layout = ppLayoutBlank  'Folienlayout (Leer)
ActiveSheet.ChartObjects("Diagramm 2").Copy   'Diagramm aus Excel in Zwischenablage
ppApp.ActiveWindow.View.Paste                 'Diagramm in PP einfügen
With ppApp.ActiveWindow.Selection.ShapeRange  'Grösse Position des Diagramms
.Left = 176.25
.Top = 176.25
.Width = 367.5
.Height = 187.5
End With
ppApp.ActiveWindow.Selection.SlideRange.Shapes.AddTextbox_(msoTextOrientationHorizontal, 59.5, 116.875, 153.125, 28.875).Select'Textbox erstellen
ppApp.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters_
(Start:=1, Length:=0).Select 'Textbox Selektieren
ppApp.ActiveWindow.Selection.TextRange.Text = Cells(1, 1)  'Text von Excel übernehmen
ppApp.ActiveWindow.Selection.Unselect 'Textbox verlassen
End Sub

Ich hoffe das hilft dir etwas weiter
Gruss
Dani
 Bild
Excel-Beispiele zum Thema "PowerPoint"
Beim Öffnen PowerPoint starten und danach Mappe aktivieren PowerPoint mit SlideShow starten und danach schließen
Diagramm zu PowerPoint-Präsentation konvertieren und aufrufen