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
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
Ekli dosyalar
-
1.4 MB Görüntüleme: 16