resime git butonu ekleme

[ozserdar]

merhaba arkadaşlar tapuların takibi için bir dosyam mevcut fakat bir kaç eksiği var

birincisi tapu sorgu sayfasında tapunun resmi geliyor fakat resim çok küçük olduğu için yazıları okuyamıyorum. bu çok elzem değil. ikincisi daha önemli.
ikici istediğim de kaydettiğim tapu bilgilerinin arasında "tapuya git" diye bir buton eklemek istiyorum.bilgilerini kontrol ettiğim tapunun taranmış jpeg halini o butona tıkladığım zaman açsın. bu şekilde bir şey mümkünmüdür ? şimdiden teşekkür ederim

link : http://s6.dosya.tc/server5/r1fr42/TAPU.rar.html

 

[halit3]

Bu kodu bir denermisiniz.

Sub dosyayı_aç()

Dosya1 = ThisWorkbook.Path & "\" & Range("O4").Value & ".jpg"
MsgBox Dosya1
If CreateObject("Scripting.FileSystemObject").FileExists(Dosya1) = True Then
CreateObject("Shell.Application").Open (Dosya1)
Exit Sub
End If

Dosya2 = ThisWorkbook.Path & "\" & "tapu_0000.jpg"
If CreateObject("Scripting.FileSystemObject").FileExists(Dosya2) = True Then
CreateObject("Shell.Application").Open (Dosya2)
End If

End Sub

 

[halit3]

Yukarıdaki mesajdaki kodu güncelledim.

 

[ozserdar]

Halit Bey ben yapamadım rica etsem dosyaya siz ekler misiniz

 

[halit3]

ekli dosyanız

 

[ozserdar]

Merhaba eklemiş olduğunuz dosyada bir buton göremedim Halit Bey sorgu sayfasında O10 Hücresine tapuyu göster butonu ekleyebilir miyiz

 

[halit3]

Merhaba eklemiş olduğunuz dosyada bir buton göremedim Halit Bey sorgu sayfasında O10 Hücresine tapuyu göster butonu ekleyebilir miyiz

Sorgu sayfasında M33 hücresinde (resmi aç) buttonu var

 

[ozserdar]

Eline sağlık Halit Bey hayırlı cumalar