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