[Yardım]  Makro İle fotoğraf ekleme başka bilgisayarda görünmüyor

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

Makro İle fotoğraf ekleme başka bilgisayarda görünmüyor

İleti#1)  murat006 » 03 Arl 2018 15:20

Merhabalar,

Saha turlarını takip etmek için kullanacağımız formata basit bir makro ekledik. Bir buton yardımı ile fotoğrafı hücreye sığdırmayı ayarladık. Ancak arkadaşımın bilgisayarında eklediğimizde benim yada başka bilgisayarda ''Bağlantılı resim görüntülenemiyor.'' yazıyor ve resim görünmüyor. Aynı dosyaya ben aynı yöntem ile fotoğraf eklediğimde hem arkadaşımın bilgisayarında hemde başka bilgisayarlarda fotoğraflar görünüyor. Nerede hata olduğunu çözemedik. Örnek dosya ekliyorum. Benim düzenlediğim dosya 1 nolu dosya, arkadaşımın düzenlediği dosya 2 nolu dosya. Yardımlarınızı bekliyoruz. Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
murat006
 
Kayıt: 03 Arl 2018 14:50
Meslek: Memur
Yaş: 26
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara Sincan

Cevap: Makro İle fotoğraf ekleme başka bilgisayarda görünmüy

İleti#2)  şahin » 04 Arl 2018 00:12

Kod: Tümünü seç
Activesheet.Pictures.Insert
yöntemi ile yaptığın zaman excel resim dosyasını sayfaya bağlıyor, yani tekrar açtığında resim dosyasını o adreste bulamazsa resmi görüntüleyemez ve hata verir, resmi her yerde exelde görebilmen için excel dosyasına aşağıdaki gibi gömmem gerek (ActiveSheet.Shapes.AddPicture yöntemi) örnek dosyada ekte.

Kod: Tümünü seç
Sub InsertPicture()


    On Error Resume Next
    Dim sFileName As FileDialog
   
    Set sFileName = Application.FileDialog(msoFileDialogFilePicker)
     If sFileName = "False" Then Exit Sub

    With sFileName
        .Filters.Clear
        .Filters.Add "Picture Files", "*.bmp;*.jpg;*.gif;*.png"
        .ButtonName = "Select"
        .AllowMultiSelect = False
        .Title = "Choose Photo"
        .InitialView = msoFileDialogViewDetails
        .Show
    End With
    ActiveSheet.Range("E3").Select
   
    ActiveSheet.Shapes.AddPicture Filename:=sFileName.SelectedItems(1), _
    LinkToFile:=msoFalse, _
    SaveWithDocument:=msoCTrue, _
    Left:=ActiveCell.Left, _
    Top:=ActiveCell.Top, _
    Width:=ActiveCell.Width, _
    Height:=ActiveCell.Height


End Sub



1 nolu dosya.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 370
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Google [Bot], Google Adsense [Bot], supervisor37 ve 2 misafir

cron
Bumerang - Yazarkafe