Dim p As Picture
With Selection
    Set p = .Parent.Pictures.Paste
    p.Top = .Top
    p.Left = .Left
    p.ShapeRange.LockAspectRatio = msoTrue  '鎖

繼續閱讀 »