- Katılım
- 6 Eyl 2020
- Mesajlar
- 55
- Excel Versiyonu
- Excel 365
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Merhabalar,
Aşağıda belirtmiş olduğum macro kodunu kullanıyorum fakat tek bir sayfa üzerinden ilerliyor ayrı bir sayfa açıp ordan ayrı bir format yapmaya çalışıyorum ama yine farklı bir sayfaya atıyor bu konuda desteğinizi rica ederim.
Aşağıda belirtmiş olduğum macro kodunu kullanıyorum fakat tek bir sayfa üzerinden ilerliyor ayrı bir sayfa açıp ordan ayrı bir format yapmaya çalışıyorum ama yine farklı bir sayfaya atıyor bu konuda desteğinizi rica ederim.
Kod:
Function GenerateQR2(QR_Value As String)
Dim URL As String
Dim MyCell As Range
Set MyCell = Application.Caller
URL = "https://chart.googleapis.com/chart?chs=100x100&cht=qr&chl=" & QR_Value
On Error Resume Next
ThisWorkbook.Sheets(1).Pictures("My_QR_CODE_" & MyCell.Address(False, False)).Delete
On Error GoTo 0
ThisWorkbook.Sheets(1).Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.Name = "My_QR_CODE_" & MyCell.Address(False, False)
.Left = MyCell.Left + 5
.Top = MyCell.Top + 5
End With
GenerateQR2 = ""
End Function
