[belajar-excel] membuat center Shape

[him mah]

ketika nyari nyari VBA agar gambar (shape) posisinya di tengah

http://www.mrexcel.com/forum/excel-questions/200260-center-shape-picture-active-screen.html


Sub Example()
      CenterShape Me.Shapes("Rectangle 1")
End Sub

Public Sub CenterShape(o As Shape)
      o.Left = ActiveWindow.VisibleRange(1).Left +
(ActiveWindow.VisibleRange.Width / 2 - o.Width / 2)
      o.Top = ActiveWindow.VisibleRange(1).Top +
(ActiveWindow.VisibleRange.Height / 2 - o.Height / 2)
End Sub