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

Beiträge aus den Excel-Beispielen zum Thema "PowerPoint"