resime makro atayarak exe dosyası açma.

[sratacc]

ekte gönderdiğim dosyadaki resimlere köprü atayarak program açtırmayı denediğimde, açmaya çalıştığınız dosya virüs içerebilir gibi bir uyarı veriyor. bu uyarıyı engellemek için makro yönteminin gerekli olduğu söylendi. resme tıkladığımda programın açılması için hangi kodu yazmalıyım. çok araştırdım ama bulamadım. zamanınızı aldığım için kusura bakmayın.
teşekkürler şimdiden.

 

[halit3]

ekte gönderdiğim dosyadaki resimlere köprü atayarak program açtırmayı denediğimde, açmaya çalıştığınız dosya virüs içerebilir gibi bir uyarı veriyor. bu uyarıyı engellemek için makro yönteminin gerekli olduğu söylendi. resme tıkladığımda programın açılması için hangi kodu yazmalıyım. çok araştırdım ama bulamadım. zamanınızı aldığım için kusura bakmayın.
teşekkürler şimdiden.

kod

Sub dosyayı_ac()
Dosya = "[COLOR=red]dosyanın adresi buraya yazılacak[/COLOR]"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

 

[sratacc]

kod

Sub dosyayı_ac()
Dosya = "[COLOR=red]dosyanın adresi buraya yazılacak[/COLOR]"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

hocam çok teşekkür ederim. çok makbule geçti

 

[sratacc]

kod

Sub dosyayı_ac()
Dosya = "[COLOR=red]dosyanın adresi buraya yazılacak[/COLOR]"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

peki hocam bu resimleri buton haline getirebilirmiyim. üzerine bastığımda tuşa basıyormus gibi olabilirmi.

teşekkürler

 

[halit3]

peki hocam bu resimleri buton haline getirebilirmiyim. üzerine bastığımda tuşa basıyormus gibi olabilirmi.

teşekkürler

Sayfaya bir adet komut düğmesi ekleyin özellikler/Picture(None) yazan yerden ilgili resimi ekleyin

Private Sub CommandButton1_Click()
Dosya = "dosyanın adresi buraya yazılacak"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

 

[sratacc]

Sayfaya bir adet komut düğmesi ekleyin özellikler/Picture(None) yazan yerden ilgili resimi ekleyin

Private Sub CommandButton1_Click()
Dosya = "dosyanın adresi buraya yazılacak"
If Dosya <> "" Then
CreateObject("Shell.Application").Open (Dosya)
End If
End Sub

Teşekkür ederim bilgileriniz için...

 

[halit3]

Teşekkür ederim bilgileriniz için...

İyi çalışmalar