Hi Nikhil,
you will need to create an action with a code stage and create one yourself, the code below is for saving images from an excel, so have a play with altering it to check.
Dim wb, ws As Object
Dim excel, sheet, range As Object
Dim FILEPATH as string
Dim TempImg as System.Drawing.Image
Dim sp as Object
FILEPATH = ""
dim i as integer
i = 0
Try
wb = GetWorkbook(Handle, Workbook)
ws = GetWorksheet(Handle, Workbook, Worksheet)
wb.Activate()
ws.Activate()
ShapeCount = ws.Shapes.Count
For Each sp In ws.Shapes
i = i + 1
FILEPATH = OutputPath & "Image" & i & ".png"
currentsh = i
if ws.Shapes.Item(i).Type = 13 then
'check if it exists already
If File.Exists(FILEPATH) = False then
ws.Shapes.Item(i).Copy
If Clipboard.ContainsImage Then
TempImg = Clipboard.GetImage()
TempImg.Save(FILEPATH,System.Drawing.Imaging.ImageFormat.png)
Threading.Thread.Sleep(100)
Clipboard.Clear()
Threading.Thread.Sleep(100)
else
End if
Else
End if
else
end if
'Clipboard.Clear()
Next
Clipboard.Clear()
Success = true
Catch e As Exception
Message = e.TargetSite.Tostring & ";" & e.Message
wb = Nothing
ws = Nothing
excel = Nothing
sheet = Nothing
range = Nothing
TempImg = nothing
Success = False
End Try
------------------------------
Robert New
Senior Mentor / Developer
Smart Automation Services Limited
Europe/London
------------------------------
