Value properties on commandbutton

[vwxyz]

Dear expert,

I develop picture, line and commandbutton on ms excel
i want to make the commandbutton position possible move dynamicaly,
it position top and left value base on calculation result on cell
(example A1 value for top and A2 value for left)
other example the commandbutton fist position on C row
and then base on value A1 and A2 commandbutton move to F row
otomaticaly A1 and A2 value change.

is it posible to do that



thanks very much before

 

[tactps]

You will need to change this to match what you want, but try this:

Press Alt-F11.
Double-click on the sheet you want to attach this to in the left pane.
Paste this into the right pane:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then
CommandPosition = [a1].Value
Select Case CommandPosition
Case 1
ActiveSheet.Shapes("CommandButton1").Select
Selection.ShapeRange.IncrementLeft -391.5
Selection.ShapeRange.IncrementTop 102#
Case Else
ActiveSheet.Shapes("CommandButton1").Select
Selection.ShapeRange.IncrementLeft 391.5
Selection.ShapeRange.IncrementTop -102#
End Select
[a1].Select
End If
End Sub