Cài QR cho file excel

Chèn code sau vào macro

Sub FormatShape_Excel()
'
' FormatShape_Excel Macro
'
' Keyboard Shortcut: Ctrl+Shift+H
'

    Dim shp As Shape
    Set shp = Selection.ShapeRange(1)

    With shp
        .Width = 50.97
        .LockAspectRatio = msoTrue
        .Rotation = 0

        ' V? trí (Excel dùng points)
        .Left = Application.InchesToPoints(-0.1)
        .Top = Application.InchesToPoints(9.5)

        ' Fill
        .Fill.Visible = msoTrue
        .Fill.Solid
        .Fill.ForeColor.RGB = RGB(255, 255, 255)
        .Fill.Transparency = 0

        ' Line
        .Line.Visible = msoFalse

        ' Picture format (n?u là hình)
        .PictureFormat.Brightness = 0.5
        .PictureFormat.Contrast = 0.5
        .PictureFormat.CropLeft = 0
        .PictureFormat.CropRight = 0
        .PictureFormat.CropTop = 0
        .PictureFormat.CropBottom = 0

        ' Z-order
        .ZOrder msoBringToFront
    End With

End Sub