1.科普

网上有一段老外的VBA代码
先给自己科普一下VBA
Visual Basic for application—是Microsoft Office软件的应用程序视觉化脚本，这个在上三节中我已经深刻体会到了

2.为了看懂下面的代码

  1. 数据类型
  2. 编辑
  7. 基本数据类型
  8. 即Primary Type Data，下述列表的括号内为字节数： [2]  
  9. Byte (1)：无符号数类型，取值范围0-255
  10. Boolean (2)
  11. Integer(2)
  12. Long (4)
  13. Single (4)
  14. Double (8)
  15. Currency (8)
  16. Decimal (14)
  17. Date (8)
  18. String
  19. Object (4)
  20. Variant （根据分配确定） [2]  
  25. 自定义的数据类型
  26. 相当于C语言的struct，例如： [2]  
  27. Type 自定义类型名 元素名 As 类型 … [元素名 As 类型] End Type
  32. 数组
  33. Option Base 0 ：数组索引值从0开始 [2]  
  34. Option Base 1 ：数组索引值从1开始
  35. Dim MyArray(10) ：声明一个数组变量，10是最大的可用的数组索引值
  36. MyArray(5) = 101 ：给数组的元素赋值
  37. Dim Data(10,5) ：声明一个二维数组变量
  38. Data(1,1) = "A001" ：给数组元素赋值
  39. Dim cArr(-11 To 20, 1 To 3) As String ：声明一个数组，定义数组索引值的上下界
  40. Dim dArr() As String ：声明动态数组
  41. ReDim dArr(0 To 5, 1 To 2) ：改变动态数组的尺寸默认把原数据清除。如果保留原来的数据，必须加上参数
  42. Preserve：使用Preserve参数时只能改变最后一位的大小
  43. If UBound(vTemp) = -1 Then：判断数组变量vTemp是否为空数组
  44. End If Erase MyArrar, Data Erase语句清除数组元素，释放变量占用的空间

3.VBA代码

Option Explicit

Public Sub LocationTable()
‘This routine will create a text file of the location and size of all 2-d shapes
‘ on the current page
Dim shpObj As Visio.Shape, celObj As Visio.Cell
Dim ShpNo As Integer, Tabchr As String, localCent As Double
Dim LocationX As String, LocationY As String
Dim ShapeWidth As String, ShapeHeight As String
Dim unit As String

unit = “mm”
‘Open or create text file to write data
Open “C:\temp\LocationTable.xml” For Output Shared As #1

Tabchr = Chr(9) ‘Tab

Print #1, “<?xml version=””1.0”” encoding=””gb2312”” ?>”
Print #1, ““
Print #1, ““


‘Loop Shapes collection
For ShpNo = 1 To Visio.ActivePage.Shapes.Count

Set shpObj = Visio.ActivePage.Shapes(ShpNo)
If Not shpObj.OneD Then ‘ Only list the 2-D shapes

‘Get location Shape
Set celObj = shpObj.Cells(“pinx”)
localCent = celObj.Result(unit)
LocationX = localCent ‘ Format(localCent, “000.0000”)
Set celObj = shpObj.Cells(“piny”)
localCent = celObj.Result(unit)
LocationY = Format(localCent, “000.0000”)

‘Get Size Shape
Set celObj = shpObj.Cells(“width”)
localCent = celObj.Result(unit)
ShapeWidth = Format(localCent, “000.0000”)
Set celObj = shpObj.Cells(“height”)
localCent = celObj.Result(unit)
ShapeHeight = Format(localCent, “0.0000”)

‘Write values to Text file starting Name of Shape
Print #1, “ LocationX; ","; LocationY; ","; ShapeWidth; ","; ShapeHeight; """ />“
End If

Next ShpNo

Print #1, ““
Print #1, ““
‘Close Textfile
Close #1

‘Clean Up
Set celObj = Nothing
Set shpObj = Nothing
End Sub

4.C#代码

  2.         private void SaveShapeXML(string filePath,Page page)
  3.         {
  4.             //生成KML文件，注意大小写
  5.             FileStream fs = new FileStream(filePath, FileMode.Create);
  6.             XmlTextWriter w = new XmlTextWriter(fs, Encoding.UTF8);
  8.             string unit = "mm";
  9.             // 开始文档
  10.             w.Formatting = System.Xml.Formatting.Indented;
  11.             w.WriteStartDocument();
  12.             w.WriteStartElement("document");
  13.             //向先前创建的元素中添加一个属性
  14.             w.WriteAttributeString("path", filePath);
  15.             w.WriteAttributeString("name", axDrawingControl1.Document.Name);
  16.             w.WriteStartElement("shapes");
  17.             w.WriteAttributeString("unit", unit);
  19.             //声明一些变量
  20.             Cell celObj;
  21.             int shpNo;
  22.             double localCent;
  23.             string locationX;
  24.             string locationY;
  25.             string shapeWidth;
  26.             string shapeHeight;
  28.             foreach (Shape shpObj in page.Shapes)
  29.             {
  30.                 //Get location Shape
  31.                 celObj = shpObj.Cells["pinx"];
  32.                 localCent = celObj.Result[unit];
  33.                 locationX = string.Format(localCent.ToString(), "000.000");
  35.                 celObj = shpObj.Cells["piny"];
  36.                 localCent = celObj.Result[unit];
  37.                 locationY = string.Format(localCent.ToString(), "000.000");
  39.                 //Get Size Shape
  40.                 celObj = shpObj.Cells["width"];
  41.                 localCent = celObj.Result[unit];
  42.                 shapeWidth = string.Format(localCent.ToString(), "000.000");
  44.                 celObj = shpObj.Cells["height"];
  45.                 localCent = celObj.Result[unit];
  46.                 shapeHeight = string.Format(localCent.ToString(), "000.000");
  48.                 string bound = string.Format("{0},{1},{2},{3}", locationX, locationY, shapeWidth, shapeHeight);
  49.                 w.WriteStartElement("shape");
  50.                 w.WriteAttributeString("name", shpObj.Name);
  51.                 w.WriteAttributeString("type", shpObj.Type.ToString());
  52.                 w.WriteAttributeString("text", shpObj.Text);
  53.                 w.WriteAttributeString("bounds", bound);
  54.                 w.WriteEndElement();//结束shape
  55.             }
  56.             w.WriteEndElement();//关闭shapes
  57.             w.WriteEndElement();//关闭document
  58.             w.WriteEndDocument();
  59.             //关闭流
  60.             w.Close();
  61.             fs.Close();
  62.         }