windows 10 ofis 2016 makrolar çalışmıyor

[acarselcuk1]

merhaba arkadaşlar;
windows 7 ve ofis 2003 de çalışan makro
windows 10 ofis 2016 makrolar çalışmıyor.
yardımlarınızı rica ediyorum. makro aşağıdaki gibidir.



Sub resimekle()
On Error Resume Next
Set s1 = Sheets("Sayfa2")
Selection.CopyPicture xlScreen, xlBitmap
ActiveSheet.Paste
genislik = Selection.Width
yukseklik = Selection.Height
Selection.Cut
MkDir "c:\aa\"

Set grafik = s1.ChartObjects.Add(Left:=s1.[a1].Left, Top:=s1.[a1].Top, Width:=genislik, Height:=yukseklik)
grafik.Chart.Paste
grafik.Chart.Export "c:\aa\xresimx.gif"
grafik.Delete
sat = WorksheetFunction.CountA(Sheets("Sayfa2").[a:a]) + 1
s1.Range("a" & sat) = "."
Set ekle = s1.Range("a" & sat).AddComment
ekle.Text Text:=""
With ekle.Shape
.Fill.UserPicture "c:\aa\xresimx.gif"
.Width = genislik
.Height = yukseklik
End With
Kill "c:\aa\xresimx.gif"
RmDir "C:\aa\"
MsgBox "Açıklama oluşturulmuştur"
End Sub

 

[Korhan Ayhan]

Merhaba,

Kodun başındaki On Error Resume Next ifadesini silip kodu F8 tuşuyla adım adım çalıştırın.

Hata oluşan satırı foruma yazın. Araştıralım.

 

[acarselcuk1]

bilgisayarım iş yerinde. evde windows 10 ve ofis 2016 yok. pazartesi dediğinizi yapıp bildireceğim. bu arada bilgisayarında windows 10 ve ofis 2016 olan arkadaş varsa deneyip buraya bildirebilirse çok memnun olurum. teşekkürler.

 

[tahsinanarat]

bilgisayarım iş yerinde. evde windows 10 ve ofis 2016 yok. pazartesi dediğinizi yapıp bildireceğim. bu arada bilgisayarında windows 10 ve ofis 2016 olan arkadaş varsa deneyip buraya bildirebilirse çok memnun olurum. teşekkürler.

Makro bende çalıştı herhangi bir hata vermedi.
İşletim Sistemim win10
ofis 2016

on error resume next satırını kaldırınca f8 ile adım adım çalıştırdığımda
MkDir "c:\aa\"
satırından sonra hata veriyor, bilginize

 

[acarselcuk1]

makro çalışıyor fakat sayfa 1 de seçili alanı sayfa 2 deki açıklamanın içine resim olarak kaydetmesi gerekiyor. ama sayfa 2 ye döndüğümüzde açıklamanın içinde resim görülmüyor. bu makroyu daha önce windows 7 ye uyarlayan
idris serdar bey
Varsayılan olarak win7 de "C:\" kök dizini altına dosya oluşturma izni vermiyor.
MkDir "c:\aa\" ile bir dizin yaratıp
Kill "c:\aa\xresimx.gif"
RmDir "C:\aa\"
ile yaratılan dosya ile dizin siliniyor. deyip windows 7 çin çalışır hale getirmişti.
şimdi bu bahsedilen kök dizin ile alakalı muhtemelen windws 10 da farklı bir durum daha oldu galiba. tabi benim bilgim az olduğu için üstatlardan çözüm bekliyorum.

 

[Korhan Ayhan]

Deneyiniz.

Sub resimekle()
    On Error Resume Next
    Set s1 = Sheets("Sayfa2")
    Selection.CopyPicture xlScreen, xlBitmap
    ActiveSheet.Paste
    genislik = Selection.Width
    yukseklik = Selection.Height
    Selection.Cut
    MkDir "c:\aa\"
    Set grafik = s1.ChartObjects.Add(Left:=s1.[a1].Left, Top:=s1.[a1].Top, Width:=genislik, Height:=yukseklik)
    grafik.Activate
    grafik.Chart.Paste
    grafik.Chart.Export "c:\aa\xresimx.gif"
    grafik.Delete
    sat = WorksheetFunction.CountA(Sheets("Sayfa2").[a:a]) + 1
    s1.Range("a" & sat) = "."
    Set ekle = s1.Range("a" & sat).AddComment
    ekle.Text Text:=""
    With ekle.Shape
    .Fill.UserPicture "c:\aa\xresimx.gif"
    .Width = genislik
    .Height = yukseklik
    End With
    Kill "c:\aa\xresimx.gif"
    RmDir "C:\aa\"
    MsgBox "Açıklama oluşturulmuştur"
End Sub

 

[acarselcuk1]

makroyu ilk oluşturan leventm,
windows 7 ye uyarlayan idris serdar bey,
ve son olarak bana bu konuda yardım etmek isteyen tüm excel.web üyeleri,
ve tabi makronun windows 10 ve ofis 2016 da çalışır hale getiren son versiyon mimarı
KORHAN AYHAN bey
sizlere çok teşekkür ederim.
konu birçok kişi için basit olsa da, bilmeyince sizler gibi üstatlardan yardım istiyoruz.
elinize, emeğinize sağlık.
bu makroyu 10 yıldır kullanıyorum ve inanın çalıştığım iş yerinde çok faydalı oluyor.
2006 dan beri siteye üyeyim.
inşallah sitenin hep var olması için en yakın zamanda altın üyelik yapacağım.
bugün bana, yarın binlercesine ışık olacak bu hizmet hep devam etmesi dileklerimle.

 

[tahsinanarat]

açıklamaya resim ekleme altarnatif

Sn. acerselcuk1; seçili alanı önce dosya yoluna Picture + 1 olarak ekliyor, aynı anda eklediğiniz dosyadan kaydedilen resmi sayfa2' nin a1 hücresine ekliyor.
Dosya ekte inceleyiniz
Link:
http://s3.dosya.tc/server10/0w43pt/aciklamayaresimekle4.rar.html

 

[acarselcuk1]

sn.tahsinanarat ilginizden dolayı teşekkür ederim. yukarıda enson korhan ayhan beyin düzenlediği kod işimi gördü. sizin gönderdiğiniz gibi işlev görüyor. yardımlarınızdan dolayı çok teşekkür ederim.