Displays
the Diagram Gallery dialog, (shown left).
This gives you the ability to set up some
specialist diagrams to represent your data. The
six types, as shown are, Organisation Chart,
Cycle, Radial, Pyramid, Venn & Target diagrams.
These are in effect drawing shapes as they do
not dynamically accept or represent data, as
charts do, but with the aid of an auto-launched
toolbar, makes their creation far easier with the
pre-designed shapes and lines.
Sub AddVennDiagram()
Dim wks As Worksheet
Dim shp As Shape
Dim x As Integer
Set wks = ActiveSheet
'Add a Venn Diagram
Set shp = wks.Shapes.AddDiagram(msoDiagramVenn,
50, 50, 300, 300)
'Add Three Nodes to the diagram and text to each
For x = 1 To 3
shp.DiagramNode.Children.AddNode
Next x x
End Sub
Displays
the Diagram Gallery dialog, (shown left).