VBA code to save snips as .tif file... From Excel spreadsheet.

[amaresh achar]

Hello, I was wondering if there is a way to save a picture (a picture inserted from snipping tool) directly from an Excel sheet as ***.tif file...!?(without copying to power point) Is there any way we can do it by VBA code...!? Any information regarding would be very helpful..

Thank you very much in advance,
Amaresh

 

[amaresh achar]

Some code to save a picture through power point... (Error reported) can someone please rectify the error to make it work properly...!?

Regards,
Amaresh

 

[amaresh achar]

How to save images from an Excel file using VBA?

I have an Excel file that contains a column with images that correspond to distinct unique IDs. Basically, through VBA, I want to loop through each image and save it with its name being the unique ...

stackoverflow.com

 

[amaresh achar]

Some code to save a picture through power point... (Error reported) can someone please rectify the error to make it work properly...!?

Regards,
Amaresh

How to save images from an Excel file using VBA?

I have an Excel file that contains a column with images that correspond to distinct unique IDs. Basically, through VBA, I want to loop through each image and save it with its name being the unique ...

stackoverflow.com

 

[amaresh achar]

Hello people... I have found the solution for above problem.. Thanks if anybody had tried to debug the code..

Sub SaveImages()

    'the location to save all the images
    Const destFolder$ = "C:\Users\AksharA\Desktop\Images\"

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("data")

    Dim ppt As Object, ps As Variant, slide As Variant

    Set ppt = CreateObject("PowerPoint.application")
    Set ps = ppt.presentations.Add
    Set slide = ps.slides.Add(1, 1)

    Dim shp As Shape, shpName$
    For Each shp In ws.Shapes
        shpName = destFolder & shp.TopLeftCell.Offset(1, 1) & ".tif"
        shp.Copy
        With slide
            .Shapes.Paste
            .Shapes(.Shapes.Count).Export shpName, 2
            .Shapes(.Shapes.Count).Delete
        End With
    Next shp

    With ps
        .Saved = True
        .Close
    End With
    ppt.Quit
    Set ppt = Nothing

End Sub