Excel’de Api Kullanarak QrCode Üretmek

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.