'This script shows all the methods and properties of a 3D XyZ bubble plot Sub Main 'Initializes Grapher Dim GrapherApp, Plot, Graph1, XYZBubblePlot As Object Set GrapherApp = CreateObject("Grapher.Application") GrapherApp.Visible = True Set Plot = GrapherApp.Documents.Add(grfPlotDoc) 'Creates an XYZ bubble plot Set Graph1 = Plot.Shapes.Add3DBubblePlotGraph(GrapherApp.Path + "\samples\bar chart orientations.dat") Set XYZBubblePlot = Graph1.Plots.Item(1) 'Set RadiusRange to "Use fixed range" XYZBubblePlot.RadiusRange = grfUseFixedRange XYZBubblePlot.sizeCol = 3 'Set min and max range values XYZBubblePlot.RadiusRangeMin = 1 XYZBubblePlot.RadiusRangeMax = 30 'Set x and y bubble rotation XYZBubblePlot.BubbleXRot = 30 XYZBubblePlot.BubbleYRot = 75 'Set draw method to wire frame 1 XYZBubblePlot.DrawMethod = grfWireFrame1 'Set wire frame fill color to blue XYZBubblePlot.FillColor = grfColorBlue 'Set wireframe line color to green XYZBubblePlot.lineColor = grfColorGreen 'Set line count to 10 XYZBubblePlot.LineCount = 10 'Set "Gradient detail" XYZBubblePlot.GradDetail = 50 'Change size column XYZBubblePlot.RadiusRange = grfUseDataRange XYZBubblePlot.sizeCol = 3 'Set min and max bubble radii XYZBubblePlot.BubbleMin = 0.10 XYZBubblePlot.BubbleMax = 0.6 'Set the bubble plot gradient fill color XYZBubblePlot.LoadColorMap(GrapherApp.Path + "\Color Scales\ChromaDepth.clr") End Sub