Clickable annual wheel

Hi daredan,

I love your wheel. Try the attached file. However, I didn't implement the year part, because I didn't see any Year segments.

This is how I approached your problem:
a. Macro 'RenameAciveShape()' was used to rename the segments to 'Jan' thru 'Dec'.
b. Macro 'AssignOnActionTextToWheelSegments()' was used to assign Macro 'WheelEventHandler()' as the Event Handler for all Shapes on the Sheet.
c. Macro 'WheelEventHandler()' processes CLICKS on the Wheel and puts the month in cell 'H1'.

Code follows (ordinary code module such as 'Module1'):

Please Login or Register  to view this content.

Lewis

Thanks a stack Lewis. I'll start implementing and understanding your approach and will save a version including years when done. I should be able to include this part as it'll be hardly any different from your solution for the months.
/Daniel

Hi again,

I hate to admit it, but although I consider myself having at least some basic VBA knowledge this seems to exceed my current horizon (I'll have to work on that).

I tried to incorporate your macro with the revised annual wheel (months and years) in the file, where I intend to use it, but failed both to activate your code so that the month would be updated (now in B2) and also to include the year as it's not just some simple copying of the monthly code. Also when I try to initially run the RenameActiveShape it only returns with a Runtime 438 'Object doesn't support this property or method'.

So I have included now the whole thing, where the wheel is supposed to work in, which is a recurring task list plus a Gantt chart visualisation. For the latter I have another problem, but that's already posted in the chart section of this forum.

Sorry for the troubles - really appreciate that it's generally working fine

/Daniel

Good day,
I've solved the issue by using a simple macro per shape. Works like a charm as well.

Please Login or Register  to view this content.

Admit it could potentially be more fancy, but does what it's supposed to do.

Cheers,
Daniel

Hi Daniel,

I want to apologize for two things:
a. The problems you were having.
b. I missed your second post from yesterday at 9:57AM

I like your solution much better than mine. I was trying to avoid extra code, but cause unintended consequences instead.

For the future you can simplify things a little. You can replace

Please Login or Register  to view this content.

with

Please Login or Register  to view this content.

I wouldn't change anything now, because what you have works.

Lewis

No worries Lewis. Without your help I might still be stuck, so thanks for your guidance.
Cheers,
Daniel

some changes to
1) Sub WheelEventHandler
2) shapes name
3) formulas in cells

AnnalWheel_DRAFT_V2.xlsm

Interesting approach on the formula. Thanks.
Also like the compressed macro.