Powerpoint VBA Lösung

Moderator: ModerationP

Powerpoint VBA Lösung

Beitragvon Lundquist » 18. Aug 2015, 13:30

Einfache Lösung würde meine Arbeit enorm verkürzen, aber ich habe es nicht geschafft...

VBA-Lösung:

Ein makiertes Textfeld soll mit einem Makro folgendes machen:

Schiftart XY, Linksbündig, Position Textfeld XY, Größe Textfeld XY

Das Problem habe ich, dass mein Makro für das aktive ausgewählte Textfeld wirken soll.

Vielen Dank für die Unterstützung
Adrian
Lundquist
 

Re: Powerpoint VBA Lösung

Beitragvon Gerrax » 20. Nov 2016, 19:29

Hi Adrian,
noch nix vom Selection-Objekt gehört?
Code: Alles auswählen
Sub Formaendern()
If ActiveWindow.Selection.ShapeRange.HasTextFrame Then
With ActiveWindow.Selection.ShapeRange
    .Top = 55
    .Left = 35
    .Width = 250
    .Height = 250
    .TextEffect.Alignment = msoTextEffectAlignmentLeft
    .TextEffect.FontName = "Arial"
End With
Else
MsgBox "Das ausgewählte Objekt kann keinen Text enthalten", vbCritical, "Fehler!"
End If
End Sub

Wenn nichts markiert ist, kommt die Fehlermeldung "invalid request". Kannst dich ja der Schönheit wegen noch drum kümmern.

MfG
Gerrax
Gerrax
 


Zurück zu PowerPoint Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 1 Gast