Follow

How can I create and edit a multi-graph map in MapViewer via automation?

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:

  1. Copy the script below, or click here to download the BAS file: Create_MultiGraph_Map.BAS.
  2. Download the attachment (background.png) and put it in the C:\Program Files\Golden Software\MapViewer 8\Samples directory.
  3. In a Windows Explorer window, navigate to C:\Program Files\Golden Software\MapViewer 8\Scripter.
  4. Double click on Scripter.exe to launch Scripter.
  5. Press Ctrl+A to select all of the existing lines then press Delete.
  6. 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.
  7. 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 November 2, 2016

Was this article helpful?
0 out of 0 found this helpful
Have more questions? Submit a request

0 Comments

Please sign in to leave a comment.