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

[jwb1012]

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/

 

[Worf]

Option 1: use VBA to rotate it. Would you like example code?

Option 2: https://www.extendoffice.com/documents/excel/2115-excel-funnel-chart.html

 

[jwb1012]

Yes, if you can provide example VBA code that would be incredibly helpful. Thank you very much!!

 

[Worf]

Something like this:

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