Howto: 如何确定一个ArcGIS图形所使用的RGB颜色?

摘要：
如何确定一个ArcGIS图形所使用的RGB颜色?
内容： 步骤：
1. 打开包含图形的map文档
2. 粘贴以下代码到VBA

Sub OutputGraphColors()
Dim RGBColorArray(16) As String
' assign array values based on IDataGraphColorTable documentation
RGBColorArray(0) = "0,0,0" 'Black
RGBColorArray(1) = "0,0,128" 'Blue
RGBColorArray(2) = "0,128,0" 'Green
RGBColorArray(3) = "0,128,128" 'Cyan
RGBColorArray(4) = "128,0,0" 'Red
RGBColorArray(5) = "128,0,128" 'Magenta
RGBColorArray(6) = "128,128,0" 'Brown
RGBColorArray(7) = "192,192,192" 'Light Gray
RGBColorArray(8) = "128,128,128" 'Gray
RGBColorArray(9) = "0,0,255" 'Light Blue
RGBColorArray(10) = "0,255,0" 'Light Green
RGBColorArray(11) = "0,255,255" 'Light Cyan
RGBColorArray(12) = "255,0,0" 'Light Red
RGBColorArray(13) = "255,0,255" 'Light Magenta
RGBColorArray(14) = "255,255,0" 'Yellow
RGBColorArray(15) = "255,255,255" 'White
Dim pDataGraphs As IDataGraphs
Set pDataGraphs = ThisDocument
Dim pDataGraph As IDatagraph
Set pDataGraph = pDataGraphs.Item(0) 'first graph
Dim pDataGraphColorTable As IDataGraphColorTable
Set pDataGraphColorTable = pDataGraph
Dim i As Integer
For i = 0 To pDataGraphColorTable.size - 1

Debug.Print RGBColorArray(pDataGraphColorTable.ColorRGB(i))

Next i
End Sub

3. 改变索引以显示图表
4. 运行宏
5. 打开VBA的执行窗口查看结果
6. 如果一个图表里有多个图块，如：行，列，饼状图，这些颜色如果重复了在列表中列出。
7. 用ArcMap高级设置工具列出不同颜色
8. 再使用ArcMap高级设置工具识别出颜色值大于15的。




创建时间：2003-10-17
最近更新： 2010-06-17


【原文链接】
http://support.esrichina.com.cn/2003/1017/680.html