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: 24
 
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: 24
 
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: 24
 
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: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Karabağlar

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

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

İleti#5)  mhmmtucr » 29 May 2019 12:15

Çok lazım ama, en azından biri boşuna arama yazsın böyle olunca ilgilenilmemiş gibi düşünüyorum bye
Kullanıcı avatarı
mhmmtucr
Yeni Başlamış
 
Kayıt: 17 Arl 2018 13:52
Meslek: Web Tasarım
Yaş: 22
İleti: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Karabağlar

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

İleti#6)  erciyan » 29 May 2019 13:42

Bu kod çalışması lazım kardeşim.
Masa üstüne export.jpg kaydedecektir.

Option Explicit

Sub ExportRange()

Const FName As String = "C:\Users\Muhammet\Desktop\export.jpg"
Dim rng As Range
Dim shtTemp As Worksheet
Dim chtTemp As Chart
Application.ScreenUpdating = False
Set rng = Worksheets(1).Range("A1:h40")
Set shtTemp = Worksheets.Add
Charts.Add
ActiveChart.Location Where:=xlLocationAsObject, Name:=shtTemp.Name
Set chtTemp = ActiveChart
rng.CopyPicture Appearance:=xlScreen, Format:=xlPicture
chtTemp.Paste
chtTemp.Export Filename:=FName
Application.DisplayAlerts = False
shtTemp.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub
Kullanıcı avatarı
erciyan
Yeni Başlamış
 
Kayıt: 01 Arl 2017 20:42
Meslek: makine mühendisi
Yaş: 42
İleti: 70
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmit /merkez

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

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

İleti#7)  mhmmtucr » 12 Haz 2019 19:42

erciyan sen nasıl bir kralsın ya çok teşekkür ederim kod çalıştı ve işime yaradı ne kadar teşekkür etsem az, ellerine sağlık, zaman ayırdığın için çok teşekkür ederim.
Kullanıcı avatarı
mhmmtucr
Yeni Başlamış
 
Kayıt: 17 Arl 2018 13:52
Meslek: Web Tasarım
Yaş: 22
İleti: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İzmir / Karabağlar

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

İleti#8)  erciyan » 13 Haz 2019 13:45

Birşey değil kolay gelsin.
Kullanıcı avatarı
erciyan
Yeni Başlamış
 
Kayıt: 01 Arl 2017 20:42
Meslek: makine mühendisi
Yaş: 42
İleti: 70
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmit /merkez


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe