vba [vba] Bar Code Ctrl 를 이용한 QR CODE 사용하기
페이지 정보
본문
Sub SetQR(stringToQR As String, rngCode As Range)
Dim sht As Worksheet
Dim shpTmp As Shape
Dim xRRg As Range
Dim xObjOLE As OLEObject
Set sht = rngCode.Parent
On Error Resume Next
Set xRRg = rngCode
Set xObjOLE = sht.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = stringToQR
sht.Shapes.Item(xObjOLE.Name).Width = xRRg.Width * 10
sht.Shapes.Item(xObjOLE.Name).Height = xRRg.Height * 10
sht.Shapes.Item(xObjOLE.Name).Copy
sht.Paste xRRg
xObjOLE.Delete
sht.Shapes(1).Top = xRRg.Top
sht.Shapes(1).Left = xRRg.Left
sht.Shapes(1).Width = xRRg.Width
sht.Shapes(1).Height = xRRg.Height
End Sub
- 이전글[vba] GetFolder / FileDialog를 이용한 폴더 선택 대화상자 활용 20.02.03
- 다음글[vba] 사진(이미지) 클릭시 확대 / 축소하기 19.09.29
댓글목록
등록된 댓글이 없습니다.