QR 코드로 클립보드에 저장하는 Excel 매크로

이것은

QR코드로 하여 클립보드에 저장할 뿐인 약간의 Excel 매크로입니다.

'アクティブセルの値をQRコードにしてクリップボードに格納
Sub QRCodeFromCellValue()
    With ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
        .Object.Style = 110
        .LinkedCell = ActiveCell.Address
        .Top = .Top + ActiveCell.Height
        .CopyPicture , xlBitmap
       .Delete
    End With
'    ActiveCell.Offset(1).Select
'    ActiveSheet.Paste
End Sub

사용법

QR코드로 변환하고 싶은 캐릭터 라인의 셀을 선택한 상태로, 이 매크로를 실행.
그리고는 원하는 곳에 붙여주세요.

용도

... 모르겠습니다.

보충

참조 설정: Microsoft Access BarCode Control 14.0

Office 365 Business Excel에서 시도했습니다. 다른 버전에서 작동하는지 확실하지 않습니다.

일본어에는 비대응인 것 같습니다. 또, 문자수의 상한은 아마 255문자라고 생각합니다.