Merhaba Excel’de Api Kullanarak QrCode Üretmek hakkında daha önce google api kullanarak nasıl qr code üretebildiğimize değinmiştik, google qrcode api hizmetini kapattığı için artık kullanılamamaktadır. Bunu yerine farklı bir api kullanarak Excel üzerinden api hizmetinden yararlanıp qrCode üreteceğiz.
Örnek kodumuz aynı olmasına rağmen sadece tek farklılık google api yerine tec-it.com qrcode api hizmetinden yararlanacağız.
Örnek makro kodlarımız:
Function QRuret(qrcode_value As String) 'QRuret adında bir fonksiyon oluşturuyoruz
ebat = ActiveSheet.Range("B1")
Dim URL As String
Dim My_Cell As Range
Set My_Cell = Application.Caller
URL = "https://qrcode.tec-it.com/API/QRCode?data=" & qrcode_value & "&backcolor=%23ffffff&size=" & ebat ' api cagrıldı
On Error Resume Next
ActiveSheet.Pictures("My_QR_CODE_" & My_Cell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.Name = "My_QR_CODE_" & My_Cell.Address(False, False)
.Left = My_Cell.Left + 5
.Top = My_Cell.Top + 5
End With
End Function
Yukarda belirtiğimiz kod yardımı ile QRuret formülünü kullanarak istediğimiz hücreye qr code ekleyebiliriz.
Daha önceki makalede kullandığımız gibi bir formül yardımı ile istediğiniz hücredeki değeri qrcode çevirebiliyorsunuz. Bir kaç revize yaparak kullanabilirsiniz. Örnek projede iki adet sayfa bulunmakta. Biri small küçük qr code diğeri ise normal ebat qrcode içindir.
İşinize yaramasını umarım.
Örnek Projeyi indirmek için aşağıdaki buton yardımı ile indirebilirsiniz.
İyi çalışmalar dilerim. Takıldığınız yerlerde yorumlara bildirseniz konu hakkında bilgisi olan farklı kişiler de size yardımcı olabilecektir. Mail yoluyla ulaşmamanızı rica ederim.
Hocam merhaba,
bu iş için olan çabanız ve emeğiniz için çok teşekkür ederim.
Dün akşam size google api ile ilgili yaşadığım sorunu yazdım.
Bugün yeni bir formatta hemen çalışma yaptınız. Çok teşekkürler.
İşinize yarar umarım.