Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Controlling and setting images
I am trying to control various images in excel, showing a
different image depending on the value in some cells. However I am having problem dynamically setting the image object I wish to refer to. For example, the following will work: Dim imgtest As Image Set imgtest = ThisWorkbook.Sheets(1).Image1 Image1.Picture.... etc But when I try to set Image1 dynamically it won't work: Dim imgtest as image set imgtest = ThisWorkbook.sheets(1).Image("Image" & intImageCount) where intImageCount is equal to 1. Also if I try to dim imgtest as shape and set using shape ("Image" & intImageCount) I also have no joy. Any help appreciated. Cheers Sean |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Controlling and setting images
Sean,
You must have joy! Here is a sample that I used everytime the cursor moved, I check if it is an a cell that contains the name of an picture (and was in a certain range called "Images"). Then (the part you really care about) I used the LOADPICTURE method off of my Image control (named picImage) to change the picture. Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo Exception If Not Intersect(Target, Target.Worksheet.ListObjects(1).Range) Is Nothing Then With Me.picImage .Picture = LoadPicture(ThisWorkbook.Path & "\Images\" & Intersect(Target.EntireRow, Range("Images")).Resize(1, 1).Value) .Visible = True End With Else Me.picImage.Visible = False End If Finally: Exit Sub Exception: Me.picImage.Visible = False Resume Finally End Sub ______________ I hope joy is reestablished.... -- Charles www.officezealot.com "Sean Benson" wrote in message ... I am trying to control various images in excel, showing a different image depending on the value in some cells. However I am having problem dynamically setting the image object I wish to refer to. For example, the following will work: Dim imgtest As Image Set imgtest = ThisWorkbook.Sheets(1).Image1 Image1.Picture.... etc But when I try to set Image1 dynamically it won't work: Dim imgtest as image set imgtest = ThisWorkbook.sheets(1).Image("Image" & intImageCount) where intImageCount is equal to 1. Also if I try to dim imgtest as shape and set using shape ("Image" & intImageCount) I also have no joy. Any help appreciated. Cheers Sean |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Controlling and setting images
Charles
Not quite reached that Eureka moment yet... The problem is I have a lot of image controls on my form, named for example picimage, picimage1, picimage2, picimage3 etc. and yes I could use the loadpicture method but I would have to use it for every image control and more importantly under every scenario that these images needed to change. I was hoping to loop through these image controls but I don't seem to be able to declare a variable "picimage & int" kind of thing. Any further suggestions? Cheers Sean -----Original Message----- Sean, You must have joy! Here is a sample that I used everytime the cursor moved, I check if it is an a cell that contains the name of an picture (and was in a certain range called "Images"). Then (the part you really care about) I used the LOADPICTURE method off of my Image control (named picImage) to change the picture. Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error GoTo Exception If Not Intersect(Target, Target.Worksheet.ListObjects(1).Range) Is Nothing Then With Me.picImage .Picture = LoadPicture(ThisWorkbook.Path & "\Images\" & Intersect(Target.EntireRow, Range("Images")).Resize(1, 1).Value) .Visible = True End With Else Me.picImage.Visible = False End If Finally: Exit Sub Exception: Me.picImage.Visible = False Resume Finally End Sub ______________ I hope joy is reestablished.... -- Charles www.officezealot.com "Sean Benson" wrote in message ... I am trying to control various images in excel, showing a different image depending on the value in some cells. However I am having problem dynamically setting the image object I wish to refer to. For example, the following will work: Dim imgtest As Image Set imgtest = ThisWorkbook.Sheets(1).Image1 Image1.Picture.... etc But when I try to set Image1 dynamically it won't work: Dim imgtest as image set imgtest = ThisWorkbook.sheets(1).Image("Image" & intImageCount) where intImageCount is equal to 1. Also if I try to dim imgtest as shape and set using shape ("Image" & intImageCount) I also have no joy. Any help appreciated. Cheers Sean . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Chart.Export images are shrinking as I export more images | Charts and Charting in Excel | |||
Controlling Userforms | New Users to Excel | |||
Controlling Sequence | Excel Discussion (Misc queries) | |||
Setting default pivot table field setting to "sum" | Excel Discussion (Misc queries) | |||
Controlling the mouse | Excel Programming |