Hai Andy, coba copas script ini ke dalam sebuah modul, lalu assign masing-masing prosedur ke tombol yang telah ada
Sub Kanan()
Dim dbPos As Double
With Sheet1.Shapes(1)
dbPos = .Left
.Left = dbPos + 1
End With
End Sub
Sub Kiri()
Dim dbPos As Double
With Sheet1.Shapes(1)
dbPos = .Left
.Left = dbPos - 1
End With
End Sub
solusi file terlampir
Wasslam,
-Miss Jan Raisin-
2014/1/7 Andy Ajhis Ramadhan <[email protected]>
>
>
> Dear,
> Be-Exceller
>
> Bagaimana cara membuat shape bergerak dengan VB ?
> Terima kasih...
>
> Andy Ajhis R
>
>
>
re-Menggerakan Shape.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
