Hello i have inserted a image using control toolbox and set the value of the image to a cartain picture.
i would like the picture to change depending on a cell value e.g
if range("a1") = 1 then
image1.picture = "C:\pictures\apicture.jpg"
end if
how do i make this happen as i know the above code is not real it hopefully gives an idea of what i would like thanks
After a little testing I got this to work.
assumes the worksheet is sheet1
a1 = 1
Sub pic_test()
If Cells(1, 1).Value = 1 Then
ActiveSheet.Pictures.Insert("C:\8973.jpg").Select
End If
End Sub
this assumes this is where the picture is located.
I recorded a macro and copied the code from the module.
"There are 10 kinds of people in the world, Those that understand binary, and those that don't."
Please Login or Register to view this content.
This goes in the worksheet module
check here to find that
http://www.contextures.com/xlvba01.html
Change all the ranges to suit the size of pic you want, careful with activesheet.pictures.delete
it will delete all picture in active sheet, except wordart, no idea how to delete wordart using vba
Last edited by davesexcel; 11-24-2006 at 02:14 AM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
,
Bookmarks