Vba Decrease width from left

[mahmed1]

Hi All

I have a shape that when i run the macro, the shape gets smaller so its like its sliding open

for i = 500 to 1 step -5
DoEvents
worksheets("mysheet").shapes("moveleft").width = i
nexi i

What i want to do is have that same effect on my shape named moveright but get the shape to move right when decreasing so its like the shape is opening like a sliding door going right

please help me get this effect because by flipping the variable wont work

ie i = 1 to 500

 

[mahmed1]

Hi Peter - I have manged to get the position of the 4 shapes so that it always defaults to the original position but im still getting an error with the grouping part

Thank You

Sub test()


'I have many shapes but these are the 4 shapes i want to be able to move about when displayed


With ActiveSheet.Shapes("Shape1")
    .Left = 87
    .Top = 179.25
End With


With ActiveSheet.Shapes("Shape2")
    .Left = 256.5
    .Top = 212.2501
End With


With ActiveSheet.Shapes("Shape3")
    .Left = 258.7499
    .Top = 115.5
End With


With ActiveSheet.Shapes("Shape4")
    .Left = 97.5
    .Top = 305.25
End With


With ActiveSheet.Shapes.Range(Array("Shape1", "Shape2", "Shape3", "Shape4"))
  .Group
  .Name = "DisplayGroup"
End With


For i = 0.99 To 0 Step -0.07
    Application.ScreenUpdating = False
    ActiveSheet.Shapes("DisplayGroup").Fill.Transparency = i
    Application.ScreenUpdating = True
    DoEvents
Next i
'ActiveSheet.Shapes("DisplayGroup").Fill.Transparency = 0   '(or 1)


ActiveSheet.Shapes("DisplayGroup").Ungroup


End Sub

 

[Peter_SSs]

.. but im still getting an error with the grouping part

I'm not sure what could be causing that & I haven't been able to replicate the issues.

 

[mahmed1]

Hi peter - is there any way i could send you the spreadsheet if possible?

 

[mahmed1]

Thanks to your help Peter - i am nearly there. You have been awesome

Can i please send you the worksheet so you can see where im going wrong as 1 shape is still not setting the transparency to 1 when i am hiding it and the shape outline is also not being changed when the transparency is set to 1 on most shapes

Many Thanks

 

[mahmed1]

Hi Peter

I managed to get the issue sorted by sending that image affected to the back

1 slight amendment and was hoping you can help me please

with the current code - this works beautifully

when transparency is going from 0 to 1

is there a way i can keep rotating the image named centerimage clockwise quickly and at the end go back to its original position?

i know this code
activesheet.shapes("centerimage").rotation = i will rotate based on the i variable but the doEvents spins this very slowly.

I want it to spin quickly whilst the transparency bit of the code is going to 1..can you please help me achieve this

thank you again

really appreciate this

 

[Peter_SSs]

I want it to spin quickly whilst the transparency bit of the code is going to 1..can you please help me achieve this

I don't think so. You need the DoEvents to show the (slower) movement of some shapes and of course that has to also have an impact on the (faster) movement of the other shape. I suppose it isn't surprising that this is proving difficult as you are trying to get a spreadsheet application to perform like a graphics one.

Still, somebody might come up with a solution.

 

[mahmed1]

thank you Peter - very helpful as always