Read our blogs, tips and tutorials
Try our exercises or test your skills
Watch our tutorial videos or shorts
Take a self-paced course
Read our recent newsletters
License our courseware
Book expert consultancy
Buy our publications
Get help in using our site
546 attributed reviews in the last 3 years
Refreshingly small course sizes
Outstandingly good courseware
Whizzy online classrooms
Wise Owl trainers only (no freelancers)
Almost no cancellations
We have genuine integrity
We invoice after training
Review 30+ years of Wise Owl
View our top 100 clients
Search our website
We also send out useful tips in a monthly email newsletter ...
We have 6 Excel VBA - charts videos listed below.
Posted by Andrew Gould on 17 November 2016
Posted by Andrew Gould on 21 November 2016
Posted by Andrew Gould on 29 April 2019
Posted by Andrew Gould on 29 April 2019
Posted by Andrew Gould on 29 April 2019
Posted by Andrew Gould on 27 November 2015
You might also like to consider booking a place on one of our online or classroom VBA courses, where you could meet the owls behind the videos!
From: | duggie |
When: | 01 Oct 23 at 19:06 |
I am trying to add 3D effect to my pie chart.
I manually created a pie chart, named it Chart 1, then applied the following 3D formatting:
Right-clicked on the chart to bring up the Format Chart Area on the right.
Under Chart Options, I selected the middle icon (Effects) then expanded 3D Format.
Under Top bevel, I chose Round (the first one). Similarly for Bottom bevel.
Recording the above actions genenerated this code:
With ActiveSheet.Shapes("Chart 1").ThreeD
.BevelTopType = msoBevelRelaxedInset
.BevelTopInset = 6
.BevelTopDepth = 6
End With
With ActiveSheet.Shapes("Chart 1").ThreeD
.BevelBottomType = msoBevelRelaxedInset
.BevelBottomInset = 6
.BevelBottomDepth = 6
End With
If I reversed my formatting actions, then run the code, nothing happens to the pie chart.
Furthermore, if I execute this in the Immediate Window:
ActiveSheet.Shapes("Chart 1").ThreeD.BevelTopInset = 6
followed by:
?ActiveSheet.Shapes("Chart 1").ThreeD.BevelTopInset = 6
it returns False!
Two questions spring to mind:
1. Is this yet another VBA quirk?
2. How can I use cod to set the bevel?
Thanks
From: | Andrew G |
When: | 02 Oct 23 at 08:38 |
Good question, sadly the short answer is: I don't know!
If it's any consolation I see the same behaviour - no 3D effects seem to affect a chart even if they work for a regular shape.
Sorry, I'm not sure what to suggest!
Kingsmoor House
Railway Street
GLOSSOP
SK13 2AA
Landmark Offices
99 Bishopsgate
LONDON
EC2M 3XD
Holiday Inn
25 Aytoun Street
MANCHESTER
M1 3AE
© Wise Owl Business Solutions Ltd 2024. All Rights Reserved.