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

#### jwb1012

##### Board Regular
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/

### 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
Yes, if you can provide example VBA code that would be incredibly helpful. Thank you very much!!

#### Worf

##### Well-known Member
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``````