Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

3D Gauge Charts

Status
Not open for further replies.

EliseFreedman

Programmer
Dec 6, 2002
470
GB
HI There

I am working on a Dashboard which will report on a number of KPI's. I have already created a variety of graphs which I created in 3D format. I am now adding in some Gauge Charts. For consistency, I would like to make these charts 3D. Is this possible. I cant work out how to do it.
 
There is no 3D setting for gauge chart. You can try 3D effect by applying inner shadow to the series.
Code in VBA recorded for regular shape and modified to change selected chart object:
Code:
Sub test()
Dim objSeries As Series
Set objSeries = ActiveChart.FullSeriesCollection(1)
With objSeries.Format.Shadow
    .Type = msoShadow38
    .Blur = 5
    .OffsetX = 5.6568542495
    .OffsetY = 5.6568542495
    .ForeColor.RGB = RGB(0, 0, 0)
    .Transparency = 0.5
End With
End Sub


combo
 
Hi,

Here's my take on a shadow to give the appearance of 3D.

I set up a fully functioning chart with a spinner to change the needle.

Then COPIED the chart and changed the colors to a gray shade.

No code required.

Skip,
[sub]
[glasses]Just traded in my OLD subtlety...
for a NUance![tongue][/sub]
"The most incomprehensible thing about the universe is that it is comprehensible" A. Einstein
 
 https://files.engineering.com/getfile.aspx?folder=efb30ede-0320-46c8-8f71-dd3d655c696e&file=GaugeChart.xlsx
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top