KB no longer maintained - MapViewer is a Legacy Product. Legacy Products are still supported, but no longer receive new features or updates. Many of MapViewer's features have been moved to Surfer. Please contact support@goldensoftware.com with any questions. |
This article contains a sample script for creating a multi-graph map and editing the methods and properties of the multi-graph map.
To run this script:
- Copy the script below, or click here to download the BAS file: Create_MultiGraph_Map.BAS.
- Download the attachment (background.png) and put it in the C:\Program Files\Golden Software\MapViewer 8\Samples directory.
- In a Windows Explorer window, navigate to C:\Program Files\Golden Software\MapViewer 8\Scripter.
- Double click on Scripter.exe to launch Scripter.
- Press Ctrl+A to select all of the existing lines then press Delete.
- If you copied this script, press Ctrl+V to paste it into Scripter. If you downloaded it, click File | Open, select the BAS file from your downloads directory, and click Open.
- Click Script | Run to run the script.
*********
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Create_MultiGraph_Map.BAS ' Copyright (C) Golden Software Inc. 1992-2015 ' ' This sample demonstrates how to create a multi-graph map and ' change all of the methods and properties ' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Sub Main Set MapViewerApp = CreateObject("MapViewer.Application") MapViewerApp.Visible = True InPath$ = MapViewerApp.ModuleFolder + "samples\" Set Plot = MapViewerApp.Documents.Add(DocType:=mvDocPlot) 'Creates a new layer Plot.Layers.AddLayer("Hatch") 'Creates an initial hatch map so we can add this to the legend later, 'and sets the color scheme to Brilliant so we can see our graphs better Set HatchMap = Plot.CreateHatchMap(BoundaryFileName:=InPath$+"az2010.gsb", _ DataFileName:=InPath$+"az2010.dat", PIDCol:=1, VarCol:=7, NumClasses:=8, NoData:=False, _ AllOther:=False) HatchMap.FgColorSpectrum.LoadFromList("Coral") 'Creates a new layer Plot.Layers.AddLayer("Multi-Graph") 'Creates a multi-graph map object and assigns it to the variable named "MultiGraphMap" Set MultiGraphMap = Plot.CreateMultiGraphMap(BoundaryFileName:= InPath$+"az2010.gsb", _ DataFileName:=InPath$+"MultiGraphData.dat", PIDCol:=3, XCol:=1, YCol:=2) 'Moves everything to the right a little so the legend will fit next to the map Plot.MoveSizeAllLayers(IncLegend:=False, IncScaleBar:=False, Left:=3.25, Top:=8.000, Width:=6.5, Height:=7.75) '--------------------------------------------------------------- ' Application '--------------------------------------------------------------- 'Debug.Print "Application = "+MultiGraphMap.Application+" "+MultiGraphMap.ProfileFill.Application.Version 'returns string '--------------------------------------------------------------- Parent '--------------------------------------------------------------- 'Debug.Print "Parent = "+MultiGraphMap.Parent.Parent 'returns string '--------------------------------------------------------------- ' Type '--------------------------------------------------------------- 'Debug.Print "Multi-Graph map type = "+MultiGraphMap.Type 'returns enum: 1=mvMapBaseMap, 2=mvMapHatchMap, 3=mvMapDensityMap, 4=mvMapPieMap, 5=mvMapBarMap, ' 6=mvMapSymbolMap, 7=mvMapPrismMap, 8=mvMapPinMap, 9=mvMapLineGraphMap, 10=mvMapFlowMap, 11=mvMapGradientMap, ' 12=mvMapTerritoryMap, 13=mvMapCartogramMap, 14=mvMapContourMap, 15=mvMapVectorMap, 16=mvMapMultiGraphMap '--------------------------------------------------------------- ' PIDCol '--------------------------------------------------------------- MultiGraphMap.PIDCol=1 'Debug.Print "Multi-Graph map PID column = "+MultiGraphMap.PIDCol 'returns long '--------------------------------------------------------------- ' XCol '--------------------------------------------------------------- MultiGraphMap.XCol=2 'Debug.Print "Multi-Graph map X column = "+MultiGraphMap.XCol 'returns long '--------------------------------------------------------------- ' YCol '--------------------------------------------------------------- MultiGraphMap.YCol=3 'Debug.Print "Multi-Graph map Y column = "+MultiGraphMap.YCol 'returns long '--------------------------------------------------------------- ' SetXUserLimits '--------------------------------------------------------------- MultiGraphMap.SetXUserLimits(ApplyUserLimits:=True, MinVal:=0, MaxVal:=2000) '--------------------------------------------------------------- ' XUserLimits '--------------------------------------------------------------- 'Debug.Print "Multi-Graph map use user-defined x-limits? "+MultiGraphMap.XUserLimits 'returns bool; true if ApplyUserLimits for SetXUserLimits is set to true '--------------------------------------------------------------- ' XUserLimitMinVal '--------------------------------------------------------------- 'Debug.Print "Multi-Graph map user-defined x-limits minimum value = "+MultiGraphMap.XUserLimitMinVal 'returns double; 0 if XUserLimits is false '--------------------------------------------------------------- ' XUserLimitMaxVal '--------------------------------------------------------------- 'Debug.Print "Multi-Graph map user-defined x-limits maximum value = "+MultiGraphMap.XUserLimitMaxVal 'returns double; 0 if XUserLimits is false '--------------------------------------------------------------- ' AddBreakline '--------------------------------------------------------------- MultiGraphMap.AddBreakLine=True 'Debug.Print "Add break line for Multi-Graph map? "+MultiGraphMap.AddBreakLine 'returns boolean '--------------------------------------------------------------- ' BreakLine '--------------------------------------------------------------- 'AddBreakline must be set to true before we see changes to the breakline using BreakLine property 'Application 'Debug.Print "Multi-Graph map break line application = "+MultiGraphMap.BreakLine.Application+" "+MultiGraphMap.ProfileFill.Application.Version 'returns string 'Parent 'Debug.Print "Multi-Graph map break line parent = "+MultiGraphMap.BreakLine.Parent.Parent.Parent 'returns string 'Color MultiGraphMap.BreakLine.color=mvColorRed 'Debug.Print "Multi-Graph map break line color = "+MultiGraphMap.BreakLine.color 'returns MS Access color number 'Style MultiGraphMap.BreakLine.Style="Wavy Dash" 'Debug.Print "Multi-Graph map break line style = "+MultiGraphMap.BreakLine.Style 'returns string 'Width MultiGraphMap.BreakLine.Width=0.01 'Debug.Print "Multi-Graph map break line width = "+MultiGraphMap.BreakLine.Width 'returns double '--------------------------------------------------------------- ' BreakValue '--------------------------------------------------------------- 'AddBreakline must be set to true before we see this BreakValue property applied MultiGraphMap.BreakValue=3000 'Debug.Print "Multi-Graph map break value = "+MultiGraphMap.BreakValue 'returns double '--------------------------------------------------------------- ' CreateLegend '--------------------------------------------------------------- MultiGraphMap.CreateLegend(0.625,7) '--------------------------------------------------------------- ' AddLayerToLegend '--------------------------------------------------------------- 'CreateLegend must be called first, and there needs to be at least one other thematic or pin map layer to add MultiGraphMap.AddLayerToLegend(LayerName:="Hatch") '--------------------------------------------------------------- ' GraphHeight '--------------------------------------------------------------- MultiGraphMap.GraphHeight=0.6 'Debug.Print "Multi-Graph map graph height = "+MultiGraphMap.GraphHeight 'returns double '--------------------------------------------------------------- ' GraphWidth '--------------------------------------------------------------- MultiGraphMap.GraphWidth=0.6 'Debug.Print "Multi-Graph map graph width = "+MultiGraphMap.GraphWidth 'returns double '--------------------------------------------------------------- ' GraphLine '--------------------------------------------------------------- 'Application 'Debug.Print "Multi-Graph map graph line application = "+MultiGraphMap.GraphLine.Application+" "+MultiGraphMap.ProfileFill.Application.Version 'returns string 'Parent 'Debug.Print "Multi-Graph map graph line parent = "+MultiGraphMap.GraphLine.Parent.Parent.Parent 'returns string 'Color MultiGraphMap.GraphLine.color=mvColorNavyBlue 'Debug.Print "Multi-Graph map graph line color = "+MultiGraphMap.GraphLine.color 'returns MS Access color number 'Style MultiGraphMap.GraphLine.Style="Solid" 'Debug.Print "Multi-Graph map graph line style = "+MultiGraphMap.GraphLine.Style 'returns string 'Width MultiGraphMap.GraphLine.Width=0.01 'Debug.Print "Multi-Graph map graph line width = "+MultiGraphMap.GraphLine.Width 'returns double '--------------------------------------------------------------- ' GraphPosOffsetType '--------------------------------------------------------------- MultiGraphMap.GraphPosOffsetType=mvPosOffsetUser 'Debug.Print "Multi-Graph map graph position offset type = "+MultiGraphMap.GraphPosOffsetType 'returns enum (6=User Defined, 5=Below, 4=Above, 3=Left, 2=Right, 1=Center) '--------------------------------------------------------------- ' GraphPosXOffset '--------------------------------------------------------------- 'GraphPosOffsetType must be set to mvPosOffsetUser in order for this to apply MultiGraphMap.GraphPosXOffset=0.1 'Debug.Print "Multi-Graph map graph position x offset from centroid = "+MultiGraphMap.GraphPosXOffset 'returns double '--------------------------------------------------------------- ' GraphPosYOffset '--------------------------------------------------------------- 'GraphPosOffsetType must be set to mvPosOffsetUser in order for this to apply MultiGraphMap.GraphPosYOffset=0.0 'Debug.Print "Multi-Graph map graph position y offset from centroid = "+MultiGraphMap.GraphPosYOffset 'returns double '--------------------------------------------------------------- ' ShowNode '--------------------------------------------------------------- MultiGraphMap.ShowNode=True 'Debug.Print "Show symbols on Multi-Graph map? "+MultiGraphMap.ShowNode 'returns boolean '--------------------------------------------------------------- ' NodeRadius (i.e. Symbol Size) '--------------------------------------------------------------- 'ShowNode must be set to True before we can see this apply MultiGraphMap.NodeRadius=0.03 'Debug.Print "Size of symbols on Multi-Graph map = "+MultiGraphMap.NodeRadius 'returns double '--------------------------------------------------------------- ' NodeSymbol '--------------------------------------------------------------- 'ShowNode must be set to True before we can see this apply 'Application 'Debug.Print "Multi-Graph map node symbol application = "+MultiGraphMap.NodeSymbol.Application+" "+MultiGraphMap.ProfileFill.Application.Version 'returns string 'Parent 'Debug.Print "Multi-Graph map node symbol parent = "+MultiGraphMap.NodeSymbol.Parent.Parent.Parent 'returns string 'FillColor MultiGraphMap.NodeSymbol.FillColor=mvColorGreen 'Debug.Print "Multi-Graph map symbol fill color = "+MultiGraphMap.NodeSymbol.FillColor 'returns MS Access color number 'Index MultiGraphMap.NodeSymbol.Index=6 'Debug.Print "Multi-Graph map symbol number = "+MultiGraphMap.NodeSymbol.Index 'returns long 'LineColor MultiGraphMap.NodeSymbol.LineColor=mvColorBlack 'Debug.Print "Multi-Graph map symbol line color = "+MultiGraphMap.NodeSymbol.LineColor 'returns MS Access color number 'Set MultiGraphMap.NodeSymbol.Set="GSI Default Symbols" 'Debug.Print "Multi-Graph map symbol symbol set = "+MultiGraphMap.NodeSymbol.Set 'returns string 'Size MultiGraphMap.NodeSymbol.Size=0.03 'Debug.Print "Multi-Graph map symbol size = "+MultiGraphMap.NodeSymbol.Set 'returns double '---------------------------------------------------------------
' ProfileFill '--------------------------------------------------------------- 'Application 'Debug.Print "Multi-Graph map profile fill application = "+MultiGraphMap.ProfileFill.Application+" "+MultiGraphMap.ProfileFill.Application.Version 'returns string 'Parent 'Debug.Print "Multi-Graph map profile fill parent = "+MultiGraphMap.ProfileFill.Parent.Parent.Parent 'returns string 'Pattern MultiGraphMap.ProfileFill.Pattern="Small Confetti" 'Debug.Print "Multi-Graph map profile fill pattern = "+MultiGraphMap.ProfileFill.Pattern 'returns string 'PatternType 'Debug.Print "Multi-Graph map profile fill pattern type = "+MultiGraphMap.ProfileFill.PatternType 'returns enum (3=mvPatternVector, 2=mvPatternBitmap, 1=mvPatternStock, 0=mvPatternAutomatic) 'ForeColor MultiGraphMap.ProfileFill.ForeColor=mvColorBlack10 'Debug.Print "Multi-Graph map profile fill foreground color = "+MultiGraphMap.ProfileFill.ForeColor 'returns MS Access color number 'BackColor 'Only applicable if fill pattern is a 2-tone Windows Stock Pattern (not Solid) MultiGraphMap.ProfileFill.BackColor=mvColorWhite 'Debug.Print "Multi-Graph map profile fill background color = "+MultiGraphMap.ProfileFill.BackColor 'returns MS Access color number 'Transparent 'Sets the background opacity, so this is only visible for two-tone Windows Stock patterns MultiGraphMap.ProfileFill.Transparent=False 'Debug.Print "Multi-Graph map profile stock fill pattern background transparent? "+MultiGraphMap.ProfileFill.Transparent 'returns boolean 'LoadPattern (can also set FileFormat:="string" and Options:="string") MultiGraphMap.ProfileFill.LoadPattern(FileName:=InPath$+"background.png") 'CoverMode 'Only applicable if fill pattern is an Image (Bitmap) Pattern and LoadPattern method has been used to load an image file MultiGraphMap.ProfileFill.CoverMode=mvFillCoverModeStretch 'Debug.Print "Multi-Graph map profile fill image pattern cover mode = "+MultiGraphMap.ProfileFill.CoverMode 'returns enum: 1=mvFillCoverModeTile, 2=mvFillCoverModeStretch 'XPatternOffset 'Only applicable if fill pattern is a preloaded or custom Image (Bitmap) Pattern MultiGraphMap.ProfileFill.XPatternOffset=0.1 'Debug.Print "Multi-Graph map profile image fill pattern x offset = "+MultiGraphMap.ProfileFill.XPatternOffset 'returns double 'XPatternScale 'Only applicable if fill pattern is an Image Pattern and if ProfileFill.CoverMode is not set to mvFillCoverModeStretch MultiGraphMap.ProfileFill.XPatternScale=0.5 'Debug.Print "Multi-Graph map profile image fill pattern x scale = "+MultiGraphMap.ProfileFill.XPatternScale 'returns double 'YPatternOffset 'Only applicable if fill pattern is a preloaded or custom Image (Bitmap) Pattern MultiGraphMap.ProfileFill.YPatternOffset=0.1 'Debug.Print "Multi-Graph map profile image fill pattern y offset = "+MultiGraphMap.ProfileFill.YPatternOffset 'returns double 'YPatternScale 'Only applicable if fill pattern is an Image (Bitmap) Pattern and if ProfileFill.CoverMode is not set to mvFillCoverModeStretch MultiGraphMap.ProfileFill.YPatternScale=0.5 'Debug.Print "Multi-Graph map profile image fill pattern y scale = "+MultiGraphMap.ProfileFill.YPatternScale 'returns double 'PatternScale 'Equivalent of settinging X and Y Pattern Scale to the same value MultiGraphMap.ProfileFill.PatternScale=0.25 'Debug.Print "Multi-Graph map profile fill pattern scale = "+MultiGraphMap.ProfileFill.PatternScale 'returns double 'VectorPatternScale 'This property is included for backwards capability with MapViewer 5 and older. Applies to Image (Bitmap) patterns. Replaced in newer versions by PatternScale. 'MultiGraphMap.ProfileFill.VectorPatternScale=0.5 'Debug.Print "Multi-Graph map profile vector fill pattern scale = "+MultiGraphMap.ProfileFill.VectorPatternScale 'returns double 'SetPatternAndType 'Sets both the pattern and type. This does the same thing as Pattern now that MapViewer internally determines the Pattern Type automatically MultiGraphMap.ProfileFill.SetPatternAndType(PatternName:="Solid", Type:=mvPatternStock) 'options: mvPatternVector, mvPatternBitmap, mvPatternStock, mvPatternAutomatic? '---------------------------------------------------------------
' ProfileLine ('background' line around the graph) '--------------------------------------------------------------- 'Application 'Debug.Print "Multi-Graph map profile line application = "+MultiGraphMap.ProfileLine.Application+" "+MultiGraphMap.ProfileLine.Application.Version 'returns string 'Parent 'Debug.Print "Multi-Graph map profile line parent = "+MultiGraphMap.ProfileLine.Parent.Parent.Parent 'returns string 'color MultiGraphMap.ProfileLine.color=mvColorBlack 'Debug.Print "Multi-Graph map profile line color = "+MultiGraphMap.ProfileLine.color 'returns MS Access color number 'Style MultiGraphMap.ProfileLine.Style="Solid" 'Debug.Print "Multi-Graph map profile line style = "+MultiGraphMap.ProfileLine.Style 'returns string 'Width MultiGraphMap.ProfileLine.Width=0.0 'Debug.Print "Multi-Graph map profile line width = "+MultiGraphMap.ProfileLine.Width 'returns double '--------------------------------------------------------------- ' SetTicks '--------------------------------------------------------------- MultiGraphMap.SetTicks(ShowTick:=True, XTickSpacing:=200, YTickSpacing:=600, TickLength:=0.03, _ ShowLab:=True, LabOffset:=0.03, LabFreq:=4, LabAngle:=0, SameLabOrient:=True) '--------------------------------------------------------------- ' ShowTick '--------------------------------------------------------------- 'Debug.Print "Multi-Graph map: show axes ticks? "+MultiGraphMap.ShowTick 'returns boolean '--------------------------------------------------------------- TickLength '--------------------------------------------------------------- 'Debug.Print "Multi-Graph map axes tick length = "+MultiGraphMap.TickLength 'returns double '--------------------------------------------------------------- ' TickLine '--------------------------------------------------------------- 'Application 'Debug.Print "Multi-Graph map axes tick line application = "+MultiGraphMap.TickLine.Application+" "+MultiGraphMap.TickLine.Application.Version 'returns string 'Parent 'Debug.Print "Multi-Graph map axes tick line parent = "+MultiGraphMap.TickLine.Parent.Parent.Parent 'returns string 'color MultiGraphMap.TickLine.color=mvColorBlack 'Debug.Print "Multi-Graph map axes tick line color = "+MultiGraphMap.TickLine.color 'returns MS Access color number 'Style MultiGraphMap.TickLine.Style="Solid" 'Debug.Print "Multi-Graph map axes tick line style = "+MultiGraphMap.TickLine.Style 'returns string 'Width MultiGraphMap.TickLine.Width=0.0 'Debug.Print "Multi-Graph map axes tick line width = "+MultiGraphMap.TickLine.Width 'returns double '--------------------------------------------------------------- ' XTickSpacing '--------------------------------------------------------------- 'Debug.Print "Multi-Graph map x axis tick spacing = "+MultiGraphMap.XTickSpacing 'returns double '--------------------------------------------------------------- ' YTickSpacing '--------------------------------------------------------------- 'Debug.Print "Multi-Graph map y axis tick spacing = "+MultiGraphMap.YTickSpacing 'returns double '--------------------------------------------------------------- ' ShowTickLab '--------------------------------------------------------------- 'Debug.Print "Multi-Graph map: show axes tick labels? "+MultiGraphMap.ShowTickLab 'returns boolean '--------------------------------------------------------------- ' TickLabFont '--------------------------------------------------------------- 'Application 'Debug.Print "Multi-Graph map axes tick label font application = "+MultiGraphMap.TickLabFont.Application+" "+MultiGraphMap.TickLabFont.Application.Version 'returns string 'Parent 'Debug.Print "Multi-Graph map axes tick label font parent = "+MultiGraphMap.TickLabFont.Parent.Parent.Parent 'returns string 'Face MultiGraphMap.TickLabFont.Face="Calibri" 'Debug.Print "Multi-Graph map axes tick labels font = "+MultiGraphMap.TickLabFont.Face 'returns string 'Size MultiGraphMap.TickLabFont.Size=6 'Debug.Print "Multi-Graph map axes tick labels font size = "+MultiGraphMap.TickLabFont.Size 'returns double 'ForeColor MultiGraphMap.TickLabFont.ForeColor=mvColorDarkNavyBlue 'Debug.Print "Multi-Graph map axes tick labels font foreground color = "+MultiGraphMap.TickLabFont.ForeColor 'returns MS Access color number 'ForeOpacity MultiGraphMap.TickLabFont.ForeOpacity=100 'Debug.Print "Multi-Graph map axes tick labels font foreground opacity = "+MultiGraphMap.TickLabFont.ForeOpacity+"%" 'returns long 'Background MultiGraphMap.TickLabFont.Background=True 'Debug.Print "Multi-Graph map axes tick labels: display font background? "+MultiGraphMap.TickLabFont.Background 'returns boolean 'BackColor MultiGraphMap.TickLabFont.BackColor=mvColorWhite 'Debug.Print "Multi-Graph map axes tick labels font background color = "+MultiGraphMap.TickLabFont.BackColor 'returns MS Access color number 'BackOpacity MultiGraphMap.TickLabFont.BackOpacity=10 'Debug.Print "Multi-Graph map axes tick labels font background opacity = "+MultiGraphMap.TickLabFont.BackOpacity+"%" 'returns long 'Bold MultiGraphMap.TickLabFont.Bold=False 'Debug.Print "Multi-Graph map axes tick labels bolded? "+MultiGraphMap.TickLabFont.Bold 'returns boolean 'Italic MultiGraphMap.TickLabFont.Italic=False 'Debug.Print "Multi-Graph map axes tick labels italiciced? "+MultiGraphMap.TickLabFont.Italic 'returns boolean 'Strikethrough MultiGraphMap.TickLabFont.StrikeThrough=False 'Debug.Print "Multi-Graph map axes tick labels crossed-out? "+MultiGraphMap.TickLabFont.StrikeThrough 'returns boolean 'Underline MultiGraphMap.TickLabFont.Underline=False 'Debug.Print "Multi-Graph map axes tick labels underlined? "+MultiGraphMap.TickLabFont.Underline 'returns boolean 'HAlign 'This is available for all font properties, but the TickLabFont property doesn't apply this since tick labels are aligned with the ticks MultiGraphMap.TickLabFont.HAlign=mvTALeft 'Debug.Print "Multi-Graph map axes tick labels horizontal alignment = "+MultiGraphMap.TickLabFont.HAlign 'returns enum: 1=mvTALeft, 2=mvTACenter, 3=mvTARight 'VAlign 'This is available for all font properties, but the TickLabFont property doesn't apply this since tick labels are aligned with the ticks MultiGraphMap.TickLabFont.VAlign=mvTATop 'Debug.Print "Multi-Graph map axes tick labels vertical alignment = "+MultiGraphMap.TickLabFont.VAlign 'returns enum: 1=mvTATop, 2=mvTABaseline, 3=mvTABottom, 4=mvTAVCenter '---------------------------------------------------------------- ' XTickLabFormat '---------------------------------------------------------------- 'Application 'Debug.Print "Multi-Graph map x axis tick label format application = "+MultiGraphMap.XTickLabFormat.Application+" "+MultiGraphMap.XTickLabFormat.Application.Version 'returns string 'Parent 'Debug.Print "Multi-Graph map x axis tick label format parent = "+MultiGraphMap.XTickLabFormat.Parent.Parent.Parent 'returns string 'Type MultiGraphMap.XTickLabFormat.Type=mvLabExpon 'Debug.Print "Multi-Graph map x axis tick labels type = "+MultiGraphMap.XTickLabFormat.Type 'returns enum: 1=mvLabFixed, 2=mvLabExpon, 3=mvLabGeneral 'AbsoluteValue MultiGraphMap.XTickLabFormat.AbsoluteValue=False 'Debug.Print "Multi-Graph map x axis tick labels absolute value? "+MultiGraphMap.XTickLabFormat.AbsoluteValue 'returns boolean 'NumDigits MultiGraphMap.XTickLabFormat.NumDigits=2 'Debug.Print "Multi-Graph map x axis tick labels number of digits = "+MultiGraphMap.XTickLabFormat.NumDigits 'returns long 'Prefix MultiGraphMap.XTickLabFormat.Prefix="" 'Debug.Print "Multi-Graph map x axis tick labels prefix = "+MultiGraphMap.XTickLabFormat.Prefix 'returns string 'Postfix MultiGraphMap.XTickLabFormat.Postfix="" 'Debug.Print "Multi-Graph map axis tick labels suffix = "+MultiGraphMap.XTickLabFormat.Postfix 'returns string 'Thousands MultiGraphMap.XTickLabFormat.Thousands=True 'Debug.Print "Multi-Graph map x axis tick labels: show comma in thousands position? "+MultiGraphMap.XTickLabFormat.Thousands 'returns boolean 'TrimExponent 'This will only be implemented if the label type is exponential MultiGraphMap.XTickLabFormat.TrimExponent=True 'Debug.Print "Multi-Graph map x axis tick labels: trim leading zeros from exponential numbers? "+MultiGraphMap.XTickLabFormat.TrimExponent 'returns boolean '---------------------------------------------------------------- YTickLabFormat '---------------------------------------------------------------- 'Application 'Debug.Print "Multi-Graph map y axis tick label format application = "+MultiGraphMap.YTickLabFormat.Application+" "+MultiGraphMap.YTickLabFormat.Application.Version 'returns string 'Parent 'Debug.Print "Multi-Graph map y axis tick label format parent = "+MultiGraphMap.YTickLabFormat.Parent.Parent.Parent 'returns string 'Type MultiGraphMap.YTickLabFormat.Type=mvLabFixed 'Debug.Print "Multi-Graph map y axis tick labels type = "+MultiGraphMap.YTickLabFormat.Type 'returns enum: 1=mvLabFixed, 2=mvLabExpon, 3=mvLabGeneral 'AbsoluteValue MultiGraphMap.YTickLabFormat.AbsoluteValue=False 'Debug.Print "Multi-Graph map y axis tick labels absolute value? "+MultiGraphMap.YTickLabFormat.AbsoluteValue 'returns boolean 'NumDigits MultiGraphMap.YTickLabFormat.NumDigits=0 'Debug.Print "Multi-Graph map y axis tick labels number of digits = "+MultiGraphMap.YTickLabFormat.NumDigits 'returns long 'Prefix MultiGraphMap.YTickLabFormat.Prefix="" 'Debug.Print "Multi-Graph map y axis tick labels prefix = "+MultiGraphMap.YTickLabFormat.Prefix 'returns string 'Postfix MultiGraphMap.YTickLabFormat.Postfix=" m" 'Debug.Print "Multi-Graph map y axis tick labels suffix = "+MultiGraphMap.YTickLabFormat.Postfix 'returns string 'Thousands MultiGraphMap.YTickLabFormat.Thousands=True 'Debug.Print "Multi-Graph map y axis tick labels: show comma in thousands position? "+MultiGraphMap.YTickLabFormat.Thousands 'returns boolean 'TrimExponent 'This will only be implemented if the label type is exponential MultiGraphMap.YTickLabFormat.TrimExponent=True 'Debug.Print "Multi-Graph map y axis tick labels: trim leading zeros from exponential numbers? "+MultiGraphMap.YTickLabFormat.TrimExponent 'returns boolean '---------------------------------------------------------------- ' SameTickLabOrient '----------------------------------------------------------------
'Debug.Print "Multi-Graph map: same orientation for x and y axis tick labels? "+MultiGraphMap.SameTickLabOrient 'returns boolean '---------------------------------------------------------------- ' TickLabAngle '---------------------------------------------------------------- 'Debug.Print "Multi-Graph map axes tick label angle = "+MultiGraphMap.TickLabAngle 'returns long '---------------------------------------------------------------- ' TickLabFreq '---------------------------------------------------------------- 'Debug.Print "Multi-Graph map axes tick label frequency = "+MultiGraphMap.TickLabFreq 'returns long '---------------------------------------------------------------- ' TickLabOffset '----------------------------------------------------------------
'Debug.Print "Multi-Graph map axes tick label offset = "+MultiGraphMap.TickLabOffset 'returns double End Sub
Updated August 20, 2018
Comments
0 comments
Please sign in to leave a comment.