[Hỏi] Căn chỉnh vị trí shape trong excel

Sub shapecenter() 
    Dim Row As Integer 
    Dim Shp As Shape 
    For Each Shp In ActiveSheet.Shapes 
        Shp.Select 
        Dim vSel As Variant 
        Dim rngZ As Range 
        Set vSel = Selection 
        If VarType(vSel) = vbObject Then 
            With vSel 
                Set rngZ = .TopLeftCell 
                .Top = rngZ.Top + (rngZ.Height - .Height) / 2 
                .Left = rngZ.Left + (rngZ.Width - .Width) / 2 
                .ShapeRange.LockAspectRatio = -1 
                .Placement = xlMoveAndSize 
                .PrintObject = True 
            End With 
            rngZ.Select 
        End If 
    Next 
End Sub