[Yardım]  Makro İle Fotoğraf Çekme

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Makro İle Fotoğraf Çekme

İleti#1)  tolgaturhan » 13 Şub 2020 19:40

İyi günler arkadaşlar bir sunum hazırlıyorum çoğu kodu yazdım fakat bir şey yapamıyorum sorunum şu kısadan anlatıyorum

Excel ' de bir tablo oluşturdum örnek verioyum a1 ve a2 stunu boş a1 stununa masaüstümden veya herhanki bi klasörden adı aynı olan .jpg ismini yazdığım zaman otomatik olarak a2 sütununa çekmesini istiyorum bunun için düğme de yapılabilir otomatik olarak kendiside çekebilir bu işlemi de b1 b2 - c1 c2 - d1 d2 ...... şeklinde uzatmak istiyorum konu ile yardımcı olabilirseniz çok sevinirim. Teşekkür ederim şimdiden
Kullanıcı avatarı
tolgaturhan
 
Kayıt: 11 Şub 2020 10:34
Meslek: Veri İşlem Yönetici
Yaş: 24
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Beşiktaş

Cevap: Makro İle Fotoğraf Çekme

İleti#2)  Tamermaster » 15 Şub 2020 17:00

Sayfaya Geliştirici sekmesinden Commendbutton ekleyin.
Sayfayı sağ tıklatıp kod bölümüne aşağıdaki kodu girin
A1 hücresine resmin adını girip butona tıkladığınızda resim A2 Hücresine gelecektir.
Dosyanın bulunduğu klasöre ResimYok.jpg eklerseniz hücre boş olduğu zaman Resimyok.jpg görünecektir.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
    Dim Resim As Object
    If Range("A1") = "" Then
    Rsm = "ResimYok"
    Else
    Rsm = Range("A1")
    End If
    Range("A2").Select
    Set Resim = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Rsm & ".jpg")
    Resim.Height = ActiveCell.Height
    Resim.Width = ActiveCell.Width
End Sub
Kullanıcı avatarı
Tamermaster
Siteye Alışmış
 
Adı Soyadı:Tamer Muhassıl
Kayıt: 25 May 2009 01:04
Konum: İstanbul/Bahçelievler
Meslek: Elektronik
Yaş: 50
İleti: 138
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Bahçelievler


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: konas06 ve 7 misafir

Bumerang - Yazarkafe