Excel 2016'da Seçili alanı jpeg olarak kaydedemiyorum

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

Excel 2016'da Seçili alanı jpeg olarak kaydedemiyorum

İleti#1)  mhmmtucr » 16 May 2019 16:34

Office 2010'da problemsiz kullanıyorum kodu fakat 2016'da boş bir resim kaydediyor. Yardımcı olursanız çok sevinirim.
Kod: Tümünü seç
Sub foto()
    Dim obce As Object, caart As Chart, jipeg As Range, yol As String, ds As Object
    Set ds = CreateObject("Scripting.FileSystemObject")
    yol = "C:\Users\Muhammet\Desktop\" & [G3] & " " & [C7] & ".jpeg"
    If ds.FileExists(yol) = True Then
        soru = MsgBox(yol & " dosyası zaten var. Üzerine yazılsın mı?", vbYesNo, "Dur Yolcu!")
        If soru = vbNo Then
            GoTo bitiş
        End If
    End If
    Set jipeg = ActiveSheet.Range("A1:H40")
    jipeg.Copy
    Set obce = ActiveSheet.Shapes.AddShape(1, 1, 1, 1, 1)
   
    obce.Select
    ActiveSheet.Paste
    obce.Delete
    With Selection
        .CopyPicture 1, 2
        Set caart = ActiveSheet.ChartObjects.Add(1, 1, .Width, .Height).Chart
    With caart
        .Paste
        .Export yol  'nereye çıkartılacak
        .Parent.Delete
    End With
    .Delete
    End With
bitiş:
    Set jipeg = Nothing: Set obce = Nothing: Set ds = Nothing
End Sub



Kullanıcı avatarı
mhmmtucr
Yeni Başlamış
 
Kayıt: 17 Arl 2018 13:52
Meslek: Web Tasarım
Yaş: 22
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Karabağlar

Cevap: Excel 2016'da Seçili alanı jpeg olarak kaydedemiyorum

İleti#2)  mhmmtucr » 17 May 2019 10:43

Çok ihtiyacım var, yardımınızı bekliyorum :roll: [uzgun]
Kullanıcı avatarı
mhmmtucr
Yeni Başlamış
 
Kayıt: 17 Arl 2018 13:52
Meslek: Web Tasarım
Yaş: 22
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Karabağlar

Cevap: Excel 2016'da Seçili alanı jpeg olarak kaydedemiyorum

İleti#3)  mhmmtucr » 18 May 2019 14:20

Çözümü yok galiba bye
Kullanıcı avatarı
mhmmtucr
Yeni Başlamış
 
Kayıt: 17 Arl 2018 13:52
Meslek: Web Tasarım
Yaş: 22
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Karabağlar

Cevap: Excel 2016'da Seçili alanı jpeg olarak kaydedemiyorum

İleti#4)  mhmmtucr » 22 May 2019 13:17

Peşini bırakacağım sanırım. Basit bir konu gibi görünüyor fakat çözümü yok demekki :cry: :cry:
Kullanıcı avatarı
mhmmtucr
Yeni Başlamış
 
Kayıt: 17 Arl 2018 13:52
Meslek: Web Tasarım
Yaş: 22
İleti: 22
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Karabağlar

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe