• 쇼핑몰
  • 커뮤니티
  • 북마크

vb6.0/vba




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

하나를하더라도최선을
2020.01.13 20:14 1,235 0

본문



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




댓글목록 0

등록된 댓글이 없습니다.