Help needed moving a command button

[Karoo News]

Hi I need a code that moves a command button named AdjLeft, I cannot use
increment as the position depends on the width of column a A.

EG: if column a is 22.86 wide the position of button AdjLeft needs to be say
15.25

I have tried various ways but nothing works!!!

Many thanks in advance
Neil

 

[damorrison]

Hi,
If you can find excel utilities 2 add in, there is an object mover in
there, I don't usually like using add-ins but this one has been a help
for me in the past,

I know it is a free download, probable type in excel utilities 2.0
add-in in the web search and you will find it no problem

 

[Guest]

if column a is 22.86 wide the position of button AdjLeft needs to be say
15.25

Either of the following lines would make such an adjustment. You can decide
which one is most appropriate.

ActiveSheet.Shapes("AdjLeft").Left = ActiveSheet.Columns("A:A").Width - 7.61
ActiveSheet.Shapes("AdjLeft").Left = ActiveSheet.Columns("A:A").Width * 0.667


Regards,
Vic Eldridge