Barkot etiketi yazdırma dosyadan userforma resim çekme

[yamahato]

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]

yardımcı olursanız minnettar kalırım.

 

[alicimri]

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.

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