I made oDataObj and oImgObj global variables so they get overridden for each picture. It is bad programming practive to change a for loop pointer inside the for loop.
I would also remove the statement "sp = Nothing" inside the for loop. I think you are running out of space in the clipboard. 'oImgObj.Save("c:\Temp.gif", .Gif)Īny error starting with 0x8 is a file priviledge error or an invalid pointer to memory. System.IO.File.SetLastAccessTime("c:\TempPics\" & ImageName & ".jpeg", Date.Now) OImgObj.Save("c:\TempPics\" & ImageName & ".jpeg", .Jpeg) If oDataObj.GetDataPresent(.Bitmap) Thenĭim oImgObj As = oDataObj.GetData(DataFormats.Bitmap, True) If Not .GetDataObject() Is Nothing Thenĭim oDataObj As IDataObject = .GetDataObject() Private Sub SaveImage(ByVal ImageName As String) ProgressBar2.Value = ProgressBar2.Value + 1 If Strings.Left(PicName, 7) = "Comment" Then Strings.Replace(sp.Name, "Comment", "Other", 1) If Strings.Left(PicName, 9) = "AutoShape" Then GoTo NextItem If Len(range.Cells(cCnt, 2).value.ToString) = "1" Then XlWorkSheet = xlWorkBook.Worksheets("Quotes") Private Sub ExtractImages()ĭim xlApp As .Applicationĭim xlWorkBook As .Workbookĭim xlWorkSheet As .Worksheetĭim range As .Rangeĭim sp As .Shape i manage to save about 280 before i get the copyĮrror. my excel file consists of about +- 1300 rows,and in column A is all my pictures. I was wondering if anyone can help me, there are plenty of forums that explain how to put images inside and excel file but i haven't found one to suit my needs that says on how to export an image from excel, i wrote some code that pulls the picture out ofĮxcel and saves it in a location on my pc, but at the moment it's giving me a copy error after saving a good couple of pictures.
0 kommentar(er)
