loftojr.blogg.se

To use this template, you should have some Excel VBA knowledges.

Set ObjShape = (msoShapeArc, 400, 200, 35, 35) 'You may change the shape parameters Set ObjShape = (msoShapeArc, 400, 200, 43, 43) 'You may change the shape parameters ScaleHeight Cells(k, i + 1), msoFalse, msoScaleFromTopLeft Set ObjShape = (msoShapeArc, 400, 200, 250, 250) 'You may change the shape parameters

US compare data to create this Rose Diagram. Click here to download this Excel template. (Note: support Excel 2007 - 2013) Nightingale Rose Diagram Template 2 Final results Set ObjRange = (MyShapes)Įnd Sub Nightingale Rose Diagram Excel Template Download = RGB(50, 50, 50) 'You may change the line forecolor Set ObjShape = (msoShapeArc, 400, 700, 40, 40) 'You may change the shape parameters Line.Weight = 4 'You may change the line weight Set ObjShape = (msoShapeFlowchartConnector, 400, 700, 320, 320) 'You may change the shape parameters ScaleHeight (0.4 + Cells(j, i)) / 0.7, msoFalse, msoScaleFromTopLeft = RGB(128, 128, 128) 'You may change the line forecolor Set ObjShape = (msoShapePie, 400, 700, 150, 150) 'You may change the shape parameters VBA Code Sub RoseDiagram1()ĭim ObjRange As Object, ObjShape As ObjectĪrr = ActiveSheet.Range("A1").CurrentRegion You can compare this diagram with Digital Surgeons's post. Very cool? Yes! In this style, we use Facebook social demographics 2010 data.