Resmi bir alan içinde hizalama

[okss83]

Merhabalar,

Malzemelerin resimli etiketlerini oluşturmam gerekiyor. Yaklaşaık 5000 adt malzeme için yapıcam bunu.

İşimi kolaylaştırmak için etiketlerin formatını format makrosu ile yapıyorum.

Resimleri de stok kodlarına göre dosyadan çekiyorum. Sorunum Belirlediğim alana resimlerin oturmaması. Ekte örnek dosya var.

Aşağıdaki kodları kullanıyorum. Ama o alana değilde sağ - yukarı resim yerleşiyor.
çerçeveye nasıl sabitleyebilirim.

Teşekürler.

Sub Resimleri_Al()

Dim resim As Shape, i As Long, yol As String, dosya As String

Sheets("Dosya").Range("A4:A16").Select

yol = ThisWorkbook.Path

dosya = "\" & "11623600077" & ".jpg"

ActiveSheet.Pictures.Insert(yol & dosya).Select

Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Width = Sheets("Dosya").Range("A4:A16").Width
Selection.ShapeRange.Height = Sheets("Dosya").Range("A4:A16").Height


End Sub

 

[okss83]

Alan değil hücre olarak denesemde aynı problem oluyor. Yardımlarınızı bekliyorum.

 

[tahsinanarat]

Bunu demermisiniz

Dosyanı ekte, deneyip bir yorum bildirirmisiniz.

 

[Necdet]

Merhaba,

Dosya ve resimler aynı dizin altında olmalı.

Dosyadaki resim getirilen hücreyi teke indirdim. Birleştirilmiş hücreler makroda sorun oluşturabiliyor. Bu şekilde düzenlerseniz daha uygun olmakta.

Kodlar http://www.ozgrid.com/forum/showthread.php?t=62510 adresinden alınmıştır.

 

[okss83]

Necdet teşekürler. Kodlar hücreye hizaladı fakat sağ taraftan hücreden taşıyor. Benim sütun genişliğim 43 olmak zorunda. Resmi küçültemiyorum.

Son bi yardım.

Şu an kullandığım kodlar module 2 de.