• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

jpg veya bmp formatında kayıtlı resimleri açmak

  • Konbuyu başlatan Konbuyu başlatan suha
  • Başlangıç tarihi Başlangıç tarihi
Katılım
14 Nisan 2006
Mesajlar
25
Excel Vers. ve Dili
Excel Exceldir Versiyon Farketmez...
Sevgili arkadaşlar.
Ekde bulunan personel_2011 içeriğinde userform1 var texbox da yazan personel sicil numarasına göre butona bastığım zaman d:\Personel2011\ sicil numarasına göre resmi açmak istiyorum. Yardımcı olursanız sevinirim..
Saygılarımla.............
 

Ekli dosyalar

Bunu denermisiniz.

Kod:
Private Sub CommandButton1_Click()
Dim Uzanti(3)
Uzanti(1) = "bmp": Uzanti(2) = "jpg": Uzanti(3) = "gif":
klasor = "d:\Personel2011\" & TextBox1.Text
For i = 1 To 3
dosya = klasor & "." & Uzanti(Val(i))
Dim ds, a
Set ds = CreateObject("Scripting.FileSystemObject")
a = ds.FileExists(dosya)
If a = True Then
CreateObject("Shell.Application").Open (dosya)
Exit For
Else
End If
Next i
End Sub
 
Halit bey saygılarımla;;;
 
halit abi çok güzel olmuş eline sağlık, bir sorum var, personelin sicili girildiğinde, eğer personelin resmi yoksa, "Bu Personele ait Resmi yoktur." mesajını almak için nasıl bir makro yazılır. Bunuda eklermisin. Dua ile kal.
 
halit abi çok güzel olmuş eline sağlık, bir sorum var, personelin sicili girildiğinde, eğer personelin resmi yoksa, "Bu Personele ait Resmi yoktur." mesajını almak için nasıl bir makro yazılır. Bunuda eklermisin. Dua ile kal.

Bunu denermisiniz.


Kod:
Private Sub CommandButton1_Click()
Dim Uzanti(3)
Uzanti(1) = "bmp": Uzanti(2) = "jpg": Uzanti(3) = "gif":
klasor = "d:\Personel2011\"
dosyaadi = TextBox1.Text
deg = 0
For i = 1 To 3
dosya = klasor & dosyaadi & "." & Uzanti(i)
If CreateObject("Scripting.FileSystemObject").FileExists(dosya) = True Then
CreateObject("Shell.Application").Open (dosya)
deg = 1
Exit For
End If
Next i
If deg = 0 Then
MsgBox "bu personele ait resim yoktur"
End If
End Sub
 
abi var olan resimler de de, bu personele ait resim yok diyor, bir bakarmısın

bu bölümdeki tırnak işaretlerini kaldırınız yanlışlıkla kalmış

Kod:
dosyaadi = [COLOR=red]"[/COLOR]TextBox1.Text[COLOR=red]"[/COLOR]

doğrusu bu
Kod:
dosyaadi = TextBox1.Text
 
Geri
Üst