Excel, bir sütundaki tüm hücreleri ayrı ayrı imaj dosyasına dönüştürmek.

[enki]

Merhabalar,

Forumda yeniyim, syntaxı ve buranın kültürünü bilmiyorum. Elimde tek bir sütunda alt alta 600'e yakın kelime içeren bir excel dosyası var. Yapmak istediğim şey sırayla her birini ayrı ayrı jpg ya da png formatına dönüştürmek.

yani bundaki her bir satırı;

http://imgur.com/QzjdAjP

bu biçimde almak istiyorum;

http://imgur.com/QHVOC1m

bunu yaptırabilecek bir kod, vba ya da bir yöntem var mıdır.
manuel olarak yapılması neredeyse imkansız.

 

[işsiz123]

Merhabalar,

Forumda yeniyim, syntaxı ve buranın kültürünü bilmiyorum. Elimde tek bir sütunda alt alta 600'e yakın kelime içeren bir excel dosyası var. Yapmak istediğim şey sırayla her birini ayrı ayrı jpg ya da png formatına dönüştürmek.

yani bundaki her bir satırı;

http://imgur.com/QzjdAjP

bu biçimde almak istiyorum;

http://imgur.com/QHVOC1m

bunu yaptırabilecek bir kod, vba ya da bir yöntem var mıdır.
manuel olarak yapılması neredeyse imkansız.

Merhabalar

Aşağıdaki kodu deneyebilirsiniz. C: de resim diye bir klasör oluşturun. A sütunu için yapılmış kendinize gör ayarlayabilirsiniz.

Sub işsiz123()
    
    Dim rng As Range, cht As ChartObject, say As Double, obj As Object
    Const strPath As String = "C:\resim\"
    
    Application.ScreenUpdating = False
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        
        Set obj = CreateObject("Scripting.FileSystemObject").GetFolder(strPath)
        say = obj.Files.Count + 1
        
        Set rng = Cells(i, "A")
        
        rng.CopyPicture xlScreen, xlPicture
        Set cht = ActiveSheet.ChartObjects.Add(0, 0, rng.Width + 0, rng.Height + 0)
        cht.Border.LineStyle = 0
        cht.Chart.Paste
        cht.Chart.Export strPath & "" & say & ".jpg"
        cht.Delete
        
ExitProc:
        
    Next i
    Set obj = Nothing: Set rng = Nothing: Set cht = Nothing
    Application.ScreenUpdating = True
    
End Sub

 

[enki]

çok teşekkür ederim, selametle

 

[işsiz123]

çok teşekkür ederim, selametle

Rica ederim. İyi çalışmalar