Excelden resim olarak kaydeden makro

[hurricane1907]

Merhaba

Excel de resim olarak duran birden çok resmi istediğim klasöre kaydedenilen makro varmıdır? Yardımlarınızı bekliyorum.

 

[Murat OSMA]

Merhaba,

Bu kodları kullanabilirsiniz..

[SIZE="2"]Sub Emre()
    Dim a%, i%, h!, w!, Evn As Shape
    a = 1: i = 1
    Application.ScreenUpdating = False
    For Each Evn In ActiveSheet.Shapes
        If Evn.Type = msoPicture Then
            Evn.Select
            h = Selection.ShapeRange.Height
            w = Selection.ShapeRange.Width
            ActiveSheet.ChartObjects.Add(200, 50, w, h).Select
            Cells(a, 1).CopyPicture xlScreen, xlPicture
            ActiveChart.Paste
            With ActiveSheet
                Cells(a, 1).Select
                .ChartObjects(1).Chart.Export Filename:=ThisWorkbook.Path & "\" & _
                Evn.Name & ".jpg", FilterName:="jpg"
                .ChartObjects(1).Delete
            End With
        End If
        a = a + 1: i = i + 1
    Next Evn
    Application.ScreenUpdating = True
    a = Empty: i = Empty: h = Empty: w = Empty: Set Evn = Nothing
End Sub[/SIZE]

Dosya linki: Sayfadaki Resimleri Kaydet​

 

[hurricane1907]

Murat bey teşekkür ederim yalnız benim istediğimi biraz daha detaylı anlatayım. Elimde barkod oluşturan bir makro var 9 haneli metni giriyorsun 3. safyada 4. sayfaya sırayla metne özel barkodu oluşturuyor ama resim olarak. Ben 10bine yakın barkod oluşturacağım bu şekilde. sonrasında resim olarak oluşan barkodları istediğim bir klasöre her bir barkodu ayrı ayrı png yada jpeg olarak kaydetmesini istiyorum.

 

[Murat OSMA]

Tamam işte.. verdiğim kodlar da, sayfadaki resimleri klasöre kaydetmeye yarar.
Siz barkodlarınızı resim olarak oluşturduktan sonra verdiğim kodları kullanarak resmi dışarıya aktarabilirsiniz.
Tam olarak birebir isteğinizi karşılaması için çalışmanızı görmek gerek. Biraz kod bilginiz varsa kolayca uyarlayabilirsiniz.

İyi günler.​