Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

PowerPoint

PowerPoint
04.04.2005 14:26:04
Pfälzer
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: PowerPoint
08.04.2005 08:07:02
Dani
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
Anzeige

Links zu Excel-Dialogen

CommandButton Frame

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige