ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Change pictures in Excel? (https://www.excelbanter.com/excel-worksheet-functions/102650-change-pictures-excel.html)

petterss

Change pictures in Excel?
 

Hi!
I want to change a picture depending of a choice in a cell!
EX: In D3 I have a list (dog, cat and bird) and I want to show a
picture of the choice beside the list!
Can I do that :confused:

Thanks :) !


--
petterss
------------------------------------------------------------------------
petterss's Profile: http://www.excelforum.com/member.php...o&userid=36354
View this thread: http://www.excelforum.com/showthread...hreadid=567363


Ken Johnson

Change pictures in Excel?
 
Hi peterss,

Check out John McGimpsey's site...

http://www.mcgimpsey.com/excel/lookuppics.html

Ken Johnson


petterss

Change pictures in Excel?
 

Ken Johnson Wrote:
Hi peterss,

Check out John McGimpsey's site...

http://www.mcgimpsey.com/excel/lookuppics.html

Ken Johnson



Hi !
I want to show a picture depending of a choice in a specific cell. I
have asked before and I get a link to some exempel, the problem is that
a get an error message and I dont now what to do (I´m a amateur!).

The link was: http://www.mcgimpsey.com/excel/lookuppics.html

I copy the code to my file, but I get an "error 13 - miss match" all
the time.
Code:
Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = True
With Range("B41")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub

"oPic.Name" never get the same like ".Text", my pictures have names
like 212,213... but "oPic.Name" is like 103,104...
So when it comes to "Next oPic" it stops!

What should I do? Where is the pictures defind? Whats "Me.Pictures"?

Thanks


--
petterss
------------------------------------------------------------------------
petterss's Profile: http://www.excelforum.com/member.php...o&userid=36354
View this thread: http://www.excelforum.com/showthread...hreadid=567363



All times are GMT +1. The time now is 05:56 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com