Aşağıda hata ile ilgili herhangi bir bilgi göremedim.

Merhaba;
Bu konudaki dosyayı indirip kendime uyarladım ve gayet güzel bir şekilde çalışıyor ancak eklenen dosya .jpg formatında olduğunda dosyayı açma komutunda (aşağıdaki kodda) Application.FollowHyperlink dosyaac, , True, True satırında debug hatası oluşuyor.

Ne yapmam gerektiği konusunda yardımcı olabilir misiniz?

Ben farklı formatlardaki dosyaları denedim herhangi bir sorun oluşmadı. Hepsini kopyalayıp açıyor. Sırası ile yaptığınız işlemlerin ekran görüntülerini ekleyin bakalım.

Günaydın onur hocam;
Ekleme aşamasında hiç bir sorun yok. Dosyayı belirtilen dosyaya kopyalıyor. Ancak resim türü olan dosyaları aç dediğimde aşağıdaki hataya düşüyor..

Run time error 483
Beklenmeyen bir hata oluştu

Private Sub Komut7_Click()
Dim dosyaac As String
dosyaac = "C:\Users\urhan\AppData\Local\LocalData\Servis Takip\Irsaliyeler\" _
& Right(DosyaYolu, Len(DosyaYolu) - InStrRev(DosyaYolu, "\"))
Application.FollowHyperlink dosyaac, , True, True
End Sub

Genel olarak bir hata görünmüyor. Kodlarda hata yok. VBA dan referansları kontrol edebilirsiniz. 2.si Yine VBA dan bir derleme yapın belki sizin sürümde tanınmayan bir nesne olabilir. 3. sü ise Formda bulunan DosyaYolu metin kutusunun adını değştirip denemeniz. Tabi adını değiştirdikten sonra bu adın geçtiği tüm kodlardada aynı adı yazmalısınız yoksa hata verir.