자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

vba [vba] Bar Code Ctrl 를 이용한 QR CODE 사용하기

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 9,358회 작성일 20-01-13 20:14

본문

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


댓글목록

등록된 댓글이 없습니다.