windows 7 de makrolar çalışmıyor

[acarselcuk1]

tahsinanarat bey makroyu çalıştırdığında MkDir "c:\aa\" satırından sonra hata veriyor demiş.
ilgisinden dolayı kendisine teşekkür ederim. bu satırdaki hataya istinaden bildiklerim;
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

 

[Emir Hüseyin Çoban]

.

Elle C içerisinde aa klasörü açın.

.

 

[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 hizmetin hep devam etmesi dileklerimle.