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