Rotate Area Chart (Toggle X Y Axis) - Visulize a Funnel

jwb1012

Board Regular
Joined
Oct 17, 2016
Messages
167
I've been looking for a solution to this interesting dilemma and I can't come up with a great solution... all I need to do is rotate my area chart... it's time that I opened up my question on MrExcel as I am truly out of ideas. Hoping one of you can help me solve this. I would appreciate any guidance.

I have a simple table with app usage data. The metrics are in column A and results in column B. I am attempting to simulate a funnel, so I've added a column with the negative version of my results in column C. It works wonderfully and visualizes the usage funnel, but the funnel is sideways. I need to rotate the area chart to truly appear like a funnel.

Metric
Data
Symmetrical
Eligible Devices
100,000
-100,000
Registered Users
75,000
-75,000
Monthly Active Users
30,000
-30,000
Daily Active Users
15,000
-15,000

<tbody>
</tbody>


I've tried using some complex bar graph techniques, but they are very unattractive when the funnel gets narrow (i.e. when monthly active users or daily active users are small in comparison to eligible devices) and will not suffice. Can anyone think of an approach to rotate this area chart? Or simulate the results with a scatter plot chart?

Here is my original inspiration:
http://www.criticaltosuccess.com/top-five-excel-funnel-charts-sales-marketing/
 

Some videos you may like

Excel Facts

What did Pito Salas invent?
Pito Salas, working for Lotus, popularized what would become to be pivot tables. It was released as Lotus Improv in 1989.

jwb1012

Board Regular
Joined
Oct 17, 2016
Messages
167
Yes, if you can provide example VBA code that would be incredibly helpful. Thank you very much!!
 

Worf

Well-known Member
Joined
Oct 30, 2011
Messages
3,938
Something like this:


Code:
Sub Export()
Dim ws As Worksheet, s$, co As ChartObject, p As Picture
Set ws = ActiveSheet
Set co = ws.ChartObjects("Chart5")                          ' area chart
s = "c:\users\public\funnel.jpg"                            ' path
co.Chart.Export s, "JPG"                                    ' export image
Set p = ws.Pictures.Insert(s)                               ' import image back
p.ShapeRange.IncrementRotation 90                           ' rotate
End Sub
 

Watch MrExcel Video

Forum statistics

Threads
1,095,314
Messages
5,443,749
Members
405,248
Latest member
samunders

This Week's Hot Topics

Top