Hello, its seemed to me a very easy task when comes to change color's in VBA, but the following attachment just tested my patience.
Does anyone know how can i change the color of a simple image and if i click on it the other 2 return to their default color.
Regards.
There are at least three layers - the images are grouped -
and each image is bordered by an oblong - to select them takes a right-click - I'm stumped - sorry
If I've helped you, please consider adding to my reputation - just click on the liitle star at the left.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~(Pride has no aftertaste.)
You can't do one thing. XLAdept
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~aka Orrin
Well i think i didn't made myself clear.Originally Posted by xladept
There are at least three layers - the images are grouped -
and each image is bordered by an oblong - to select them takes a right-click - I'm stumped - sorry
i know there are 3 layers, 2 of them are shape form, and the drawing in the middle is an imagem.
The thing is that u can freely change colors and everything on shapes, but when i comes to images its kinda different.
I tried to create a event that when i click on that image, that has a macro, it will change color and when i click in another one it will come back to the default color.
That is easy on shapes, but i tried on that imagem and i cant make it work.
I was wondering if someone has an answer for this.
Last edited by Tpleme; 07-13-2017 at 06:26 PM.
Formula:
'E:\Tpleme\Documents\McDonalds\Novos ficheiros\Gastos Gerais\Do 73 Gastos gerais.xlsm'!Imagem23_Click
Not in this book?
See if this is any help:
N.B. You must select an Imagem before running the macro
Sub Tpleme(): Dim S As Object, N As String N = Selection.Name With Selection.ShapeRange.Fill .Visible = msoTrue .ForeColor.RGB = RGB(204, 204, 204) .Solid End With For Each S In ActiveSheet.Shapes S.Select If Selection.Name Like "Imagem*" Then If Selection.Name <> N Then Selection.ShapeRange.Fill.Visible = msoFalse End If: End If Next End Sub
Last edited by xladept; 07-14-2017 at 11:04 AM. Reason: Details
Hi, thanks for your help.
Since im still learning VBA its kinda hard to understand complex code (for me). I stared at this for hours still dont understand but with some, or a lot, search and frustration i finally for a solution for what i need and its a code that i truly understand how it works.
I have 3 shapes and if i click in one of them its changes color and runs this simple code
the thing is that i wanted to click on other shape and the previous one change the color back . so i come up with this.Application.Goto reference:=Worksheets("Janeiro").Range("A5"), Scroll:=True
For sure its a rookie code but it works and i did it myself :D
Thank you xladept for your patience :DSub Imagem23_Click() With ActiveSheet .Shapes("Shape1").Fill.ForeColor.RGB = RGB(255, 128, 0) .Shapes("Shape1").Reflection.Type = msoReflectionType1 .Shapes("Shape2").Fill.ForeColor.RGB = RGB(0, 0, 0) .Shapes("Shape2").Reflection.Type = msoReflectionTypeNone .Shapes("Shape3").Fill.ForeColor.RGB = RGB(0, 0, 0) .Shapes("Shape3").Reflection.Type = msoReflectionTypeNone End With Application.Goto reference:=Worksheets("Janeiro").Range("A5"), Scroll:=True End Sub Sub Imagem24_Click() With ActiveSheet .Shapes("Shape2").Fill.ForeColor.RGB = RGB(255, 128, 0) .Shapes("Shape2").Reflection.Type = msoReflectionType1 .Shapes("Shape1").Fill.ForeColor.RGB = RGB(0, 0, 0) .Shapes("Shape1").Reflection.Type = msoReflectionTypeNone .Shapes("Shape3").Fill.ForeColor.RGB = RGB(0, 0, 0) .Shapes("Shape3").Reflection.Type = msoReflectionTypeNone End With Application.Goto reference:=Worksheets("Janeiro").Range("A70"), Scroll:=True End Sub Sub Imagem25_Click() With ActiveSheet .Shapes("Shape3").Fill.ForeColor.RGB = RGB(255, 128, 0) .Shapes("Shape3").Reflection.Type = msoReflectionType1 .Shapes("Shape2").Fill.ForeColor.RGB = RGB(0, 0, 0) .Shapes("Shape2").Reflection.Type = msoReflectionTypeNone .Shapes("Shape1").Fill.ForeColor.RGB = RGB(0, 0, 0) .Shapes("Shape1").Reflection.Type = msoReflectionTypeNone End With Application.Goto reference:=Worksheets("Janeiro").Range("A142"), Scroll:=True End Sub
Best regards
Good for you Tpleme - I was trying to get them all at once with a loop - but, I must say, my efforts were unrewarding
You're welcome and thanks for the rep!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks