url resim indir

[sevensuleyman]

"A" sütununda Resim Adı "B" sütununda Resim linkleri Mevcuttur. istedğimiz Klasöre indirmek istiyoruz. Makro Kodlarını Butona Bağlayıp kullanmak İsityoruz . Üstadlardan yardım bekliyorum Şimdiden Teşekkürler

 

[alicimri]

Aşağıdaki link işinize yarayabilir.
VBA to Download documents using URLs, create a folder and save it in [Archive] - VBA Express Forum

 

[sevensuleyman]

maalesef uyarlayamadım .örnek excell dosyasını ekledim. uyarlarsanız çok sevinirim.

 

[alicimri]

Altın üye değilim dosyanızı indiremiyorum.
Linkleri A2 den itibaren yazın, karşılarındaki B sütunundaki hücreye herhangi bir isim yazın. Masa üstünde bu isimle oluşan klasörün içinde resimler olacaktır.
Yine uyarlayamazsanız, dosyanızı tcdosya gibi bir dosya paylaşım sitesine yükleyip, link bildirin.

 

[sevensuleyman]

Altın üye değilim dosyanızı indiremiyorum.
Linkleri A2 den itibaren yazın, karşılarındaki B sütunundaki hücreye herhangi bir isim yazın. Masa üstünde bu isimle oluşan klasörün içinde resimler olacaktır.
Yine uyarlayamazsanız, dosyanızı tcdosya gibi bir dosya paylaşım sitesine yükleyip, link bildirin.

uyarlarsanızsevinirim.

url_resim_indir..xlsx dosyasını indir - download

url_resim_indir..xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[sevensuleyman]

internette araştırma yaparkwn farklı bir sitede sizin paylaşmış oldugunuz kodu gördüm. bu koduda toplu halde tüm linkler için uylayabilirsinzeniz çok sevinirim. ayrı bir buton olursa çok sevinirim normalde indirdiğim tüm resim boyutları 600*800 şekilnde olmalı

ActiveSheet.Pictures.Insert("https://www.log.com.tr/wp-content/uploads/2018/04/xiaominin-destekledigi-black-shark-oyuncu-telefonundan-ilk-gorsel-1.jpg").Select
With Selection.ShapeRange
.Top = 0
.Left = 0
.ScaleWidth 0.5242424242, msoFalse, msoScaleFromTopLeft
.ScaleHeight 0.5242424886, msoFalse, msoScaleFromTopLeft
.LockAspectRatio = msoFalse
.ScaleWidth 0.7832369942, msoFalse, msoScaleFromTopLeft
.PictureFormat.Crop.PictureWidth = 259
.PictureFormat.Crop.PictureHeight = 145
.PictureFormat.Crop.PictureOffsetX = 28
.PictureFormat.Crop.PictureOffsetY = 0
End With
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sayfa1"
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 & "\" & Selection.Name & ".jpg"
ActiveChart.Parent.Delet

 

[alicimri]

Deneyin Masa üstünde resim adında klasöre resimleri aktarıyor. Resim Klasörü yoksa oluşturuyor.

url_resim_indir..xlsm dosyasını indir - download

url_resim_indir..xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[alicimri]

Sizin kodlarda çalışıyor, ancak bu en boy piksel işlerini anlamıyorum.

 

[sevensuleyman]

Sizin kodlarda çalışıyor, ancak bu en boy piksel işlerini anlamıyorum.

tşk