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
- 이전글[vb6.0/vba] 텍스트 문서(txt)로 저장하는 함수 20.01.15
- 다음글[vb6.0/vba] 파일검색 SearchTreeForFile API - 모든폴더에서 파일을 검색한다 20.01.13
댓글목록
등록된 댓글이 없습니다.