|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2013
* 아래줄에 질문을 작성하세요 >>
http://blog.naver.com/PostView.nhn?blogId=okuk81&logNo=221387057061&from=search&redirect=Log&widgetTypeCall=true&directAccess=false
위의 사이트를 참조하여 QR코드를 엑셀에 넣었습니다.
(VB 모듈에 해당 내용을 넣었어요)
근데, 원 문자열이 변경될때 마다, QR코드가 이미지로 저장되면서 계속 싸여요.(이미지가 쌓여요)
QR코드 이미지가 싸이지 않게 하는 방법이 없을까요?
첨부파일 확인 부탁드립니다. 감사합니다.
==============[소리새님 글에 대한 답변입니다]==============
아래 함수에 다음을 추가하세요...
Function QRCode(txt As String, Optional width As Integer = 50, Optional height As Integer = 50)
...
...
...
' 추가코드
On Error Resume Next
ActiveSheet.Pictures(txt).Delete
On Error GoTo 0
With ActiveSheet.Pictures.Insert("https://zxing.org/w/chart?cht=qr&chs=350x350&chld=L&choe=UTF-8&chl=" + encodedTxt)
.Name = txt
...
...
End Function |
|