Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1208to1212
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
Inhaltsverzeichnis

Schriftgröße nach Export

Schriftgröße nach Export
René
Hallo liebe Excelgemeinde,
habe mir ein Makro zusammengebastelt mit dem ich eine Zelle aus einer Exceldatei kopiere und in eine .ppt Datei einfüge.
Allerdings bekomme ich es nicht hin die Schriftgröße im eingefügten Textfeld in PowerPoint auf Arial 10 anzupassen. Habt ihr eventuell einen Tipp für mich.
MfG René

Sub ZellenInhaltAbholenUndWeitergeben()
Dim rngDatenWerte As Range
Dim appPowerPt As Variant
Dim strWerte As String
Dim myDocument As Variant
Dim I As Integer
Set rngDatenWerte = Worksheets(1).Range("B1")
rngDatenWerte.Select
strWerte = strWerte & CStr(rngDatenWerte.Cells(2, 1))
Set appPowerPt = CreateObject("PowerPoint.Application")
appPowerPt.Visible = True
appPowerPt.Presentations.Open Filename:="Y:\Eigene Dateien\Test\Vorlage.ppt"
Set myDocument = appPowerPt.Presentations(1).Slides(1)
'links, oben, Breite, Schrift
With myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
150, 65, 400, 1).TextFrame
.TextRange.Text = "Kenn- Nummer:" & strWerte
End With
'appPowerPt.Presentations(1).Save
'appPowerPt.Quit
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Schriftgröße nach Export
11.04.2011 18:01:21
René
Hallo,
habe es slebst gelöst.
Sub ZellenInhaltAbholenUndWeitergeben()
Dim rngDatenWerte As Range
Dim appPowerPt As Variant
Dim strWerte As String
Dim myDocument As Variant
Dim I As Integer
Set rngDatenWerte = Worksheets(1).Range("B1")
rngDatenWerte.Select
strWerte = strWerte & CStr(rngDatenWerte.Cells(2, 1))
Set appPowerPt = CreateObject("PowerPoint.Application")
appPowerPt.Visible = True
appPowerPt.Presentations.Open Filename:="Y:\Eigene Dateien\Test\Vorlage.ppt"
Set myDocument = appPowerPt.Presentations(1).Slides(1)
'links, oben, Breite, Schrift
With myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
150, 65, 400, 1).TextFrame
.TextRange.Text = "Kenn- Nummer:" & strWerte
.TextRange.Font.Size = 14
End With
'appPowerPt.Presentations(1).Save
'appPowerPt.Quit
End Sub

MfG René
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige