i have followoing code for exporting a picture in excel worksheet but i
is showing me error as object does not support this method or proerties
plz help me to sort it out.


On Error GoTo ErrorHandler
'Dim p As Object
'Dim a As ChartObject
Dim objExcel As Excel.Application
Set objExcel = GetObject("Excel.Application")
If objExcel Is Nothing Then
Set objExcel = CreateObject("Excel.Application")
End If
objExcel.Workbooks.Open App.Path & "\PhotoOffer.xls"
objExcel.Interactive = True
objExcel.Visible = True
'objExcel.ActiveSheet.Shapes("Picture 2").Select
objExcel.ActiveSheet.pictures(2).Export App.Path & "\ab.gif"
Set objExcel = Nothing
Exit Sub
ErrorHandler:
If Err.Number < 432 Then
ShowError Err.Number, Err.Description, MODULE_NAME, "createExcel"
Set objExcel = Nothing
Exit Sub
Else
Resume Next
End I

--
dk_ary
-----------------------------------------------------------------------
dk_arya's Profile: http://www.excelforum.com/member.php...fo&userid=1651
View this thread: http://www.excelforum.com/showthread.php?threadid=31372