Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen

Werte-Transfer Format Excel-Powerpoint

Betrifft: Werte-Transfer Format Excel-Powerpoint von: Redneck
Geschrieben am: 21.08.2004 14:56:30

Hallo, mit u.a. Code den ich mit Hilfe von Ramses und Hans W. Hofmann vervollständigt habe um von Excel aus einzelne Zellwerte über Button nach Powerpoint zu transferieren. Die Formatierung der Schriftart, Schriftfarbe und Schriftgröße kann ich im Code vorgeben, das fuktioniert einwandfrei. Nur das
einstellen des rechts Anschlages oder Zentrierung funktioniert einfach nicht, deshalb meine Frage, wie bekomme ich die eingefügten Werte in den rechts Anschlag oder Zentriert. Mit .HorizontalAlignment = xlCenter oder .HorizontalAlignment = xlRight bekomme ich es nicht hin.

Sub ZellenInhaltAbholenUndWeitergeben()
    Dim rngDatenWerte As Range
    Dim appPowerPt As Variant
    Dim strWerte As String
    Dim myDocument As Variant
    Dim I As Integer
    Dim A As Integer
    
    Set rngDatenWerte = Worksheets(4).Range("C3")
    rngDatenWerte.Select
    For I = 1 To rngDatenWerte.Rows.Count
    strWerte = strWerte & CStr(rngDatenWerte.Cells(I, 1)) & "; "
    Next
    strWerte = Left(strWerte, (Len(strWerte) - 2))
    Set appPowerPt = CreateObject("PowerPoint.Application")
    appPowerPt.Visible = True
    appPowerPt.Presentations.Open Filename:="C:\WSD-Modul\Monatsbericht TZE.ppt"
    Set myDocument = appPowerPt.Presentations(1).Slides(1)
    With myDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
260, 285, 200, 100).TextFrame.TextRange
.Text = "" & strWerte
With .Font
.Italic = False
.Name = "Times New Roman"
.Color.RGB = RGB(0, 0, 0)
.Bold = True
.Size = 40
End With
End With
End Sub


Gruß Redneck
  


Betrifft: AW: Werte-Transfer Format Excel-Powerpoint von: Hans W. Hofmann
Geschrieben am: 21.08.2004 15:54:03

Arbeiten wir in xl oder ppt? Dort
.TextRange.ParagraphFormat.Alignment = ppAlignRight

Gruß HW

PowerPoint-Anwendertage im Oktober 2004 in Fulda: www.ppt-user.de
myWebSite:Excellenzen & Powerpoint interaktiv


  


Betrifft: AW: Werte-Transfer Format Excel-Powerpoint von: Redneck
Geschrieben am: 21.08.2004 16:09:59

Danke für die Hilfe, aber egal wo ich diese Zeile einfüge bekomme ich Fehlermeldungen,
Objekt erforderlich und die Shortinfo zeigt leer an.
Gruß Redneck


  


Betrifft: AW: Werte-Transfer Format Excel-Powerpoint von: Hans W. Hofmann
Geschrieben am: 21.08.2004 19:58:07

Klar in XL-VBA, weil ppAlignRight eine Konstante aus Powerpoint VBA ist, die XL net kennt. Entweder in PPT den Wert erfragen oder die PowerPoint-Bibliothek einbinden...

Gruß HW

PowerPoint-Anwendertage im Oktober 2004 in Fulda: www.ppt-user.de
myWebSite:Excellenzen & Powerpoint interaktiv


  


Betrifft: AW: Werte-Transfer Format Excel-Powerpoint von: Redneck
Geschrieben am: 21.08.2004 21:10:35

Hallo Hans W. Hofmann,
habe die Bibliothek eingebunden und nun läuft alles wie geschmiert.
Recht herzlichen Dank
Gruß Redneck


 

Beiträge aus den Excel-Beispielen zum Thema "Werte-Transfer Format Excel-Powerpoint"