Is it possible to loop through properties?

[prabha_friend]

Sub mac2()
Dim Temp() As Variant
With ActiveSheet.Shapes(1)
    If Not Not Temp Then ReDim Temp(UBound(Temp) + 1) Else ReDim Temp(0)
    Temp(UBound(Temp)) = Array("Top", "Left", "Height", "Width")
    For Each element In Temp(UBound(Temp))
        .Properties(element) = 100
        '.Top = 100
    Next element
End With
End Sub

Possible?

 

[VBA Geek]

like this?

Sub mac2()
Dim Temp() As Variant
    If Not Not Temp Then ReDim Temp(UBound(Temp) + 1) Else ReDim Temp(0)
    Temp(UBound(Temp)) = Array("Top", "Left", "Height", "Width")
    
    For Each element In Temp(UBound(Temp))
        CallByName ActiveSheet.Shapes(1), CStr(element), VbLet, 100
        '.Top = 100
    Next element

End Sub

 

[prabha_friend]

Thank you.

Instead of 100. I am putting this:

CallByName Temp(UBound(Temp) - 1), element, VbLet, CallByName(ppt.Slides.FindBySlideID(SlideNshapes!Slide_ID).Shapes(SlideNshapes!ShapeName_as_in_BRD).ShapeRange, element, VbGet)

Will work?

Plan to debug later