I have played a little with the McGimpsey suggestion for inserting a picture
into a cell. The below code allows a picture to locate itself into the top
corner of cell AH33. The pic width and column width fits the picture into the
cell.

It would be better if the picture zoomed to fit the cell rather than me
setting limits. Suggestions???

Secondly, this code requires the picture to be placed into the document
itself. With hundred of pictures the file size is excessive.
I want to hold all the photos in a remote directory and link to them. How do
I do that????


Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("AH33")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
oPic.Width = .ColumnWidth * 90
oPic.Height = .RowHeight * 13
Exit For
End If
Next oPic
End With
End Sub

Create a macro that asks the user to select the picture and then load it.
--
Gary''s Student - gsnu200826


"Stevep4" wrote:

I have played a little with the McGimpsey suggestion for inserting a picture
into a cell. The below code allows a picture to locate itself into the top
corner of cell AH33. The pic width and column width fits the picture into the
cell.

It would be better if the picture zoomed to fit the cell rather than me
setting limits. Suggestions???

Secondly, this code requires the picture to be placed into the document
itself. With hundred of pictures the file size is excessive.
I want to hold all the photos in a remote directory and link to them. How do
I do that????


Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("AH33")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
oPic.Width = .ColumnWidth * 90
oPic.Height = .RowHeight * 13
Exit For
End If
Next oPic
End With
End Sub

that might be possible, but the intention is that what ever code is in a
neighbouring cell would automatically pull the photo from the directory.

thus...=g:\shared\data\photo\[ &A5&.jpg]

The VBA code would then be required to manipulate the phot to fit the cell.


Note that cell a5 would itself be calling for data from a file in another
directory. This information would be the filename of the photo



"Gary''s Student" wrote:

Create a macro that asks the user to select the picture and then load it.
--
Gary''s Student - gsnu200826


"Stevep4" wrote:

I have played a little with the McGimpsey suggestion for inserting a picture
into a cell. The below code allows a picture to locate itself into the top
corner of cell AH33. The pic width and column width fits the picture into the
cell.

It would be better if the picture zoomed to fit the cell rather than me
setting limits. Suggestions???

Secondly, this code requires the picture to be placed into the document
itself. With hundred of pictures the file size is excessive.
I want to hold all the photos in a remote directory and link to them. How do
I do that????


Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("AH33")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
oPic.Width = .ColumnWidth * 90
oPic.Height = .RowHeight * 13
Exit For
End If
Next oPic
End With
End Sub