iyi geceler arkadaşlar..
forumda resim ekleme ile ilgili bi dosya buldum ve onu kendime uyarlamak istiyorum. ama bi türlü istediğim şekle sokamadım.
isteğim şu userform1 de resim ekle dediğimizde eklenen resim image1 e geliyor. ancak boyutlandırılmadan geliyor. bu resim image1 e gelirken mesela eni 150 boyu 180 e küçültülmüş şekilde nasıl gelebilir acaba?
bi türlü yapamadım.
kayde butonuna basınca
şu kodlar ile b2 hücresinin genişliğini ve yüksekliğini alıyor.
bunun aynısın userform1 deki resim ekle tuşuna basınca alınan resminde image1 de öle gözükmesini istiyorum. bunu nasıl yapabilirim acaba?
forumda resim ekleme ile ilgili bi dosya buldum ve onu kendime uyarlamak istiyorum. ama bi türlü istediğim şekle sokamadım.
isteğim şu userform1 de resim ekle dediğimizde eklenen resim image1 e geliyor. ancak boyutlandırılmadan geliyor. bu resim image1 e gelirken mesela eni 150 boyu 180 e küçültülmüş şekilde nasıl gelebilir acaba?
bi türlü yapamadım.
kayde butonuna basınca
Kod:
ActiveSheet.Pictures.Insert(TextBox1).Select
'En Boy Oranı Sabit Değil.İstediğimiz Boyut Veriliyor.
'Dikkat Boyut cm Değil İnç
'EnBoy oranı sabit olmasını istiyorsak msoFalse Yerine msoTrue yazılacak
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = ActiveCell.Height
Selection.ShapeRange.Width = ActiveCell.Widthbunun aynısın userform1 deki resim ekle tuşuna basınca alınan resminde image1 de öle gözükmesini istiyorum. bunu nasıl yapabilirim acaba?