Proffskon
09-24-2021, 06:28 AM
Hi!
Im trying to move some WordArt on multiple different Sheets with with a Checkbox the first sheet.
I can move the wordart with a Checkbox on the active sheet with this. I also want this to move back and forward.
Sub CheckBox34_Klicka()
If ActiveSheet.Shapes(Application.Caller).ControlFormat.Value = 1 Then
ActiveSheet.Shapes.Range(Array("Rektangel 2")).Select
Selection.ShapeRange.IncrementLeft 2000
Else
ActiveSheet.Shapes.Range(Array("Rektangel 2")).Select
Selection.ShapeRange.IncrementLeft -2000
End If
End Sub
I have tried some alternativs lika changing activesheet to worksheet but its fails..
Any suggestion how to move WordArts on others Sheets with a checkbox on the active sheet?
Im trying to move some WordArt on multiple different Sheets with with a Checkbox the first sheet.
I can move the wordart with a Checkbox on the active sheet with this. I also want this to move back and forward.
Sub CheckBox34_Klicka()
If ActiveSheet.Shapes(Application.Caller).ControlFormat.Value = 1 Then
ActiveSheet.Shapes.Range(Array("Rektangel 2")).Select
Selection.ShapeRange.IncrementLeft 2000
Else
ActiveSheet.Shapes.Range(Array("Rektangel 2")).Select
Selection.ShapeRange.IncrementLeft -2000
End If
End Sub
I have tried some alternativs lika changing activesheet to worksheet but its fails..
Any suggestion how to move WordArts on others Sheets with a checkbox on the active sheet?