Thanks Miss Jan, Miss jan kok kalau .LEFT diganti up atau down gda ya miss ? juga rotate?
Terima Kasih, Andy Pada Selasa, 7 Januari 2014 14:41, Jan Raisin <[email protected]> menulis: 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
