Barkot etiketi yazdırma dosyadan userforma resim çekme

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
233
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
30-09-2026
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
 

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
233
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
30-09-2026
yardımcı olursanız minnettar kalırım.
 
Katılım
12 Aralık 2015
Mesajlar
1,207
Excel Vers. ve Dili
Türkçe Ofis 2007
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
 
Üst