• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Barkot etiketi yazdırma dosyadan userforma resim çekme

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
236
Excel Vers. ve Dili
excel 2007
Herkese hayırlı pazarlar.
Barkot etiketi yazdırma konusunda birde dosyadan userforma resim çekme konusunda sıkıştım kaldım. Dosyayı ekledim. sorunumu çözmemde yardımcı olur musunuz. Bu arada çözemediğim sorunlarla ilgili açıklamaları userforma yazdım.
Şimdiden teşekkür ederim.
Çalışma en son 21.11.2020
 
Aşağıdaki kodlar arasına açıklamalar yazdım.
NOT: Kodlardaki "ARAMA" veya başka sayfa ismi yazılırsa o sayfa aktif olmalı, Activesheet.Name gibi referansları kabul etmiyor, neden olduğu konusunda fazla uğraşamadım.
Kod:
Private Sub CommandButton1_Click()
'Siteden barkot resmi aktarıyor.
ActiveSheet.Shapes.AddPicture "https://barcode.tec-it.com/barcode.ashx?data=" & TextBox1.Value & "&code=Code128&dpi=96&dataseparator=", msoFalse, msoTrue, 50, 50, 100, 50

' Sayfadaki resmi JPG dosyasına çeviriyor.
DoEvents
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="ARAMA"
Set chrt = ActiveSheet.ChartObjects(1)
With ActiveSheet.Shapes(1)
chrt.Width = .Width
chrt.Height = .Height
.Cut
End With
ActiveChart.Paste
chrt.Chart.Export Filename:=ThisWorkbook.Path & "\" & TextBox1.Value & ".jpg"
 ActiveSheet.ChartObjects(1).Delete
  DoEvents
 
  'Resmi image nesnesine aktarıyor.
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & TextBox1.Value & ".jpg")
End Sub
 
Geri
Üst