Thema Datum  Von Nutzer Rating
Antwort
14.12.2023 22:14:15 Max
Solved
14.12.2023 23:22:40 ralf_b
NotSolved
15.12.2023 10:18:03 Gast48263
NotSolved
Blau Powerpoint: Gleiche Positionierung von Objekten
21.12.2023 09:00:43 Max
Solved

Ansicht des Beitrags:
Von:
Max
Datum:
21.12.2023 09:00:43
Views:
123
Rating: Antwort:
 Nein
Thema:
Powerpoint: Gleiche Positionierung von Objekten

Hallo zusammen,

danke für Eure Rückmeldungen. Ich habe es nun wie folgt gelöst:

 

Sub test()

' Get the position (Top, Left) of first object

Dim L As Single
Dim T As Single

    With ActiveWindow.Selection
    
        If .Type = ppSelectionShapes Then
            L = .ShapeRange.Left
            T = .ShapeRange.Top
            
            ActiveWindow.Selection.Unselect

        Else
            MsgBox "You have not selected an Object."
            Exit Sub
        End If
    End With

' Apply position on second object


    Do While ActiveWindow.Selection.Type <> ppSelectionShapes
        DoEvents
        
    Loop
    
    With ActiveWindow.Selection
                If .Type = ppSelectionShapes Then
                    .ShapeRange.Left = L
                    .ShapeRange.Top = T
                    
                End If
    End With

End Sub


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
14.12.2023 22:14:15 Max
Solved
14.12.2023 23:22:40 ralf_b
NotSolved
15.12.2023 10:18:03 Gast48263
NotSolved
Blau Powerpoint: Gleiche Positionierung von Objekten
21.12.2023 09:00:43 Max
Solved