Hocam şu şekilde yazdım. Şöyle bir hata verdi.
Sub Auto_Open()
Application.Visible = False
UserForm1.Show 0
UserForm1.Image2.Picture = NothingPicture("")
End Sub
Merhaba hocam,
Sub Auto_Open()
Application.Visible = False
UserForm1.Show 0
UserForm1.Image2.Picture = LoadPicture("")
End Sub
Şeklinde yazdım olmadı. Sürekli son üyenin fotoğrafı açılışta geliyor.
Söylediğinizi tam olarak anlamadım. Biraz açar mısınız?
image2 yolunu resim_yol adlı textbox'tan...
Form açılmadan fotoğraf yüklendiği için harici olarak açılıyor olabilir. Activate işleminde yazıp picture özelliğini nothing yapıp sonra atamayı dener misiniz?
Çok teşekkür ederim hocam.
Emeğinize sağlık.
Hocam deneyip sonucu yazacağım.
Normalde Çalışma kitabına yazdım, yine olmadı.
O da dediğiniz gibi olabilir.
Merhaba,
Auto_Open() makro kodlarını Module yazıyorsunuz
kodlar çalıştığında Image ın nerede olduğunu bilemediğinden dolayı hata veriyor.
Image1.Picture = LoadPicture("") bu kodun başına image hangi userform da ise onun ismini yazmanız gerekli
UserForm1.Image1.Picture = LoadPicture("")
Hayır hocam, image belirtmek istedim. Rastgele isim.
Userform dosyamda adı image2
Ayrıca, yeni kayıt için 1'den 19'a kadar textbox'ları boşalttığım kodum var, onun en altına
Image2.Picture = LoadPicture("")
Yazdım, sorunsuz çalışıyor.
Ama hocam burada çalışmıyor.
...hocalarım, Userform açılınca image1'de açılıyor. Bunu engellemek için
Sub Auto_Open()
Application.Visible = False
UserForm1.Show 0
Image2.Picture = LoadPicture("")
End Sub
Şeklinde kod kullandım ama hata veriyor. Neden acaba?
Yardımcı olabilirseniz çok sevinirim.
Teşekkür ederim...
...Dim urunAdi As String, barkod As String
Dim imgURL As String
Dim tmpShp As Shape
Dim yeniSayfaAd As String
Dim pic As Picture
Dim tempFile As String
Set wsKaynak = ActiveSheet
yeniSayfaAd = "BarkodlarTekResim"
On Error Resume Next...
...Resimleri nerden alacak? yada hücrede olan resmi hücreyemi sığdıracak?
Sub ResmiHucreseyeSigdir()
Dim ws As Worksheet
Dim pic As Picture
Dim resimYolu As String
Dim targetCell As Range
resimYolu = "C:\DosyaYolu\resim.jpg" ' <-- burayı kendi resim yolunla değiştir...
Görsel ikonları yönetmenin pratik ve sürdürülebilir bir yolu, ikonları dış klasörde tutmak ve oradan LoadPicture ile çağırmaktır
Sayfadaki Resmi MouseIcon Olarak Kullanmak
Sub SetMouseIconFromSheetPicture()
Dim shp As Shape
Dim chtObj As ChartObject
Dim iconPath As String
Dim...
...Veya resmi zaten .ico formatında sayfaya ekleyip Export ile bu formatta kaydetmeniz gerekir.
MouseIcon olarak yükleme
ctrl.MouseIcon = LoadPicture(ThisWorkbook.Path & "\temp\worksheet_icon.ico")
ctrl.MousePointer = 99
Worksheet üzerindeki resim bir Shape objesi olarak bulunur.
UserForm'daki...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.