TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
Sub Setup() Dim oSl As Slide Dim oSh As Shape For Each oSl In ActivePresentation.Slides For Each oSh In oSl.Shapes With oSh .Tags.Add Name:="L", Value:=CStr(.Left) .Tags.Add Name:="T", Value:=CStr(.Top) .Tags.Add Name:="H", Value:=CStr(.height) .Tags.Add Name:="W", Value:=CStr(.width) End With Next Next End Sub
Sub ReSet() Dim oSl As Slide Dim oSh As Shape Dim sTest As String For Each oSl In ActivePresentation.Slides For Each oSh In oSl.Shapes With oSh ' skip untagged shapes: sTest = .Tags("L") & .Tags("T") & .Tags("H") & .Tags("W") If Len(sTest) > 0 Then .Left = CSng(.Tags("L")) .Top = CSng(.Tags("T")) .height = CSng(.Tags("H")) .width = CSng(.Tags("W")) End If End With Next Next End Sub