Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations biv343 on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Is it possible to generate thumbnails in Excel 2003

Status
Not open for further replies.

HugBees

Technical User
Jul 25, 2007
3
US
I have responsibility for a database full of jpegs, pdfs, ppts and the like. I created a macro a while back that makes a nicely sorted spreadsheet of everything that we store in it. Is there any way to have a excel generate thumbnails of these files? I thought that maybe an xml schema would work, but unfortunately I don't have the proper version of excel. Anyone have any thoughts?

Thanks.
 
Running the macro recorder and inserting a couple of JPEGs and then resizing, I get:
Code:
Sub Macro1()
    Range("A1").Select
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\rrashkin.INTEGRAL\My Documents\My Pictures\03159-1.jpg" _
        ).Select
    Selection.ShapeRange.ScaleWidth 0.42, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.42, msoFalse, msoScaleFromTopLeft
    Range("A15").Select
    ActiveSheet.Pictures.Insert( _
        "C:\Documents and Settings\rrashkin.INTEGRAL\My Documents\My Pictures\05101-2.jpg" _
        ).Select
    ActiveWindow.ScrollRow = 2
    ActiveWindow.ScrollRow = 3
    ActiveWindow.SmallScroll Down:=16
    Selection.ShapeRange.ScaleWidth 0.42, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 0.42, msoFalse, msoScaleFromTopLeft
End Sub

It seems that you need to repeat something like that.

_________________
Bob Rashkin
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top