![]() |
|
|
#1 | |||
|
Banned
Join Date: Oct 2003
Location: Where the system is screwed
|
MS access question
I went to MR Ecel but they have not answered my question for over teo weeks (even with three bumps).
Here is the question; Quote:
Any hep with this is GREATLY appciated. Thank you. Last edited by maximus : 10-01-2005 at 02:44 AM. |
|||
|
|
|
|
|
#2 |
|
n00b
Join Date: Sep 2005
|
This can be done. Insert this code into your worksheet. This will take the values of cell A1 and insert a picture with the same name. This also assusmes that your folder with the images is in C:\Logos. You also need to create an picture object in your worksheet. I can send you an example if you would like or if you do not understand.
Private Sub Worksheet_Change(ByVal Target As Range) Dim WS As Worksheet Dim FName As String If Not Application.Intersect(Range("A1"), Target) _ Is Nothing Then FName = "C:\Logos\" & Target.Text & ".gif" If Dir(FName) <> "" Then Set WS = ActiveSheet WS.OLEObjects("Image1").Object.Picture = _ LoadPicture(FName) End If End If End Sub |
|
|
|
|
|
#3 | |
|
Dearly Missed
(9/25/77-12/23/08) Join Date: Nov 2003
Location: DC Suburbs
|
Quote:
Edit: After three bumps you should have bumped a last time with "ARE YOU NOT ENTERTAINED?!?!?!?!"
__________________
NAFL New Orleans Saints GM/Co-Commish MP Career Record: 114-85 NAFL Super Bowl XI Champs In memory of Gavin Anthony: 7/22/08-7/26/08 Last edited by gottimd : 10-01-2005 at 08:58 AM. |
|
|
|
|
![]() |
| Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
|
|