• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Vba or Macro to highlight circles or objects

Prinz Jaymes

Prinz Jaymes

Member
Hi,

I was inspired by the grammy-bump and countdown-timer_ vba templates and decided to come up an office layout that hightlights where most work is performed.
Please see attachment. I would like the circles to have macros and change.color when touched and also to be able to apply the picture clips wherever the circles are.

Basically, circles should change color when clicked and a pop up window similar to the grammy-bump example . Hopefully, i can change the pic clips with real pics and put departments.
Please add reference table that can be tweaked.

Thanks.

This is a gift to my Boss
 

Attachments

  • SLS%20WHATWEDO%20PROJECT-1.xlsm
    0 bytes · Views: 2
Hi Jaymes ,

It's the same once more ; I suggest that after you upload your file , you check two things :

1. The file size is not 0 bytes

2. Verify that you can download the file yourself and open it in Excel.

Narayan
 
Narayan,
I apologize for that. Mobile APPS can be lazy!!!!!

I have attached the file again. Tested and it works.
Thank you for your patience.
 

Attachments

  • WHATWEDO PROJECT.xlsm
    590.9 KB · Views: 4
Hi Jaymes ,

What I suggest is , can you set up a separate worksheet tab , where you put in the data that you would like displayed against each object ?

Let us assume that we have one textbox or userform with a label which can display 5 lines of information ; your worksheet can list against each object this information in 5 columns ; depending on which object is clicked , we can retrieve the matching information from the 5 columns , and display it in the textbox / userform ; the advantage of a userform over a textbox will be that the userform can have a close button.

Narayan
 
Hi Jaymes ,

What are the a , b , c ,... in column F ? What do they refer to ?

It would be nice if we had the shape names / numbers in there e.g. either Oval 55 , Oval 62 ,... or at least 55 , 62 ,...

Narayan
 
The lettering in column F is where I will add specifics ....sentences 5 to 10 words.
Please see changes.
 

Attachments

  • WHATWEDO PROJECT-1.xlsm
    598.3 KB · Views: 1
Hi Jaymes ,

See if this is OK. I have not included the description as yet.

Narayan
 

Attachments

  • WHATWEDO PROJECT-1.xlsm
    605.6 KB · Views: 4
Narayan,

This is good work.
Can you please add the description option?
Can the color of the "oval shapes" change to another color like bright blue or green?

Thanks again
 

Attachments

  • WHATWEDO PROJECT-1-4.xlsm
    608 KB · Views: 2
Hi Jaymes ,

Please note that there are some named ranges defined ; I have not made them dynamic , so as and when you add fresh data , you need to take care of this.

There are a few ovals which do not have any associated information on the whatwedo tab. Please add this.

The numbers in column G on the whatwedo tab are all randomly put ; you will need to put in the correct oval numbers here , so that the shape and the identities are correctly paired.

Otherwise , I don't think any changes will be required ; if you need a different color for the shapes , you can change in the code , where two color constants DEFAULTCOLOR and CLICKEDCOLOR have been defined ; if you change the values of these two constants , the shape colors will change accordingly.

Narayan
 
Hi Narayan

I opened the file in Excel 2013 after making some changes. Not sure what the issue is but getting some errors when I click on circles.


With ActiveSheet
objname = .Shapes(Application.Caller).Name
shpnum = Val(Replace(objname, "Oval ", ""))

If objname <> prevname Then
.Shapes(prevname).Fill.BackColor.RGB = DEFAULTCOLOR (main error) .Shapes(prevname).Fill.ForeColor.RGB = DEFAULTCOLOR
.Shapes(objname).Fill.BackColor.RGB = CLICKEDCOLOR
.Shapes(objname).Fill.ForeColor.RGB = CLICKEDCOLOR

The Default color is = 4638719. Does that exist in Excel 2013?
 
You must log in or register to reply here.
Back
Top