Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Inserting Many Images
This is what I have and what it does is what ever image name
is in cell A1 it will insert that image into the cell that the cursor is on, and that is working, but Sub Photo1() Application.ScreenUpdating = False Dim WB As Workbook Dim SH As Worksheet Dim rng As Range Dim mypic As Picture Dim res As Variant Set WB = ActiveWorkbook res = Sheet1.Range("A1").Value If res = False Then Exit Sub Set SH = ActiveSheet Set rng = ActiveCell Set mypic = SH.Pictures.Insert(res) With mypic .Top = rng.Top .Left = rng.Left .Locked = False mypic.ShapeRange.LockAspectRatio = msoFalse mypic.ShapeRange.Height = 213.1 mypic.ShapeRange.Width = 249.2 mypic.ShapeRange.Rotation = 0# End With End Sub What I want it to do is go down the "A" column and insert the image that is named is in the cell. Here is an example of what I have in my sheet in the A column ball.gif #row 1 bull.gif #row 4 center.gif #row 7 There may be 100 rows or more and differnt names in every 4th row Can anyone help with this? Thanks Jeff w. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i keep images from moving when inserting rows in Excel? | Excel Discussion (Misc queries) | |||
inserting images into a single cell | New Users to Excel | |||
Problem inserting images in VBA forms in Excel on a Mac | Excel Programming | |||
Inserting images into excel conditionally | New Users to Excel | |||
inserting images in excel | Excel Programming |