利用VBA编程实现从EXCEL表到AUTOCAD表转换(7)

利用VBA编程实现从EXCEL表到AUTOCAD表转换

ForeFontStr = a1 + a2 + a3 + a4 + a5 + a6

End Function

---- （2）.表格中表格文字位置的转换

---- 对文字对象的属性的直接控制来实现，通过with .end with 结构可以很容易地控制文字的高度、图层、颜色、书写方向。由于Mtext文字提供支持的排列位置分为9种，必须根据Microsoft Excel表格文字的排列方式加以合适的判定，然后进行转换。其具体的实现方法详见下面的程序。

Sub kz( )

With textObj ‘文字对象

.Height = textHgt

.Layer = ‘设置图层

.Color = acRed ‘设置颜色

.DrawingDirection = 1 ‘设置书写方向

If (ma.VerticalAlignment = xlTop _

Or ma.VerticalAlignment = xlGeneral) _

And (ma.HorizontalAlignment = xlLeft _

Or ma.HorizontalAlignment = xlGeneral) _

Then .AttachmentPoint = 1 注释：acAttachmentPointTopLeft

If (ma.VerticalAlignment = xlTop _

Or ma.VerticalAlignment = xlGeneral) _

And (ma.HorizontalAlignment = xlCenter _

Or ma.HorizontalAlignment = xlJustify _

Or ma.HorizontalAlignment = xlDistributed) _

Then .AttachmentPoint = 2 注释：acAttachmentPointTopCenter

If (ma.VerticalAlignment = xlTop _

Or ma.VerticalAlignment = xlGeneral) _

And ma.HorizontalAlignment = xlRight _

Then .AttachmentPoint = 3 注释：acAttachmentPointTopRight

If (ma.VerticalAlignment = xlCenter _

Or ma.VerticalAlignment = xlJustify _

Or ma.VerticalAlignment = xlDistributed) _

And (ma.HorizontalAlignment = xlLeft _

Or ma.HorizontalAlignment = xlGeneral) _

Then .AttachmentPoint = 4 注释：acAttachmentPointMiddleLeft

If (ma.VerticalAlignment = xlCenter _

Or ma.VerticalAlignment = xlJustify _

Or ma.VerticalAlignment = xlDistributed) _

And (ma.HorizontalAlignment = xlCenter _

Or ma.HorizontalAlignment = xlJustify _

Or ma.HorizontalAlignment = xlDistributed) _

Then .AttachmentPoint = 5 注释：acAttachmentPointMiddleCenter

If (ma.VerticalAlignment = xlCenter _

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库利用VBA编程实现从EXCEL表到AUTOCAD表转换(7)在线全文阅读。