[已解决]如何用VBA宏将EXCEL 2007文本框里面的文字（段落）设成分散对齐

zhong5

‘’‘’‘ "如何用VBA宏将EXCEL 2007文本框里面的文字（段落）设成分散对齐"
’‘’‘’‘’‘'以下代码将 xlHAlignDistributed  改为 xlRight ' xlCenter '   右对齐、居中均有效，但分散对齐则无效，求高手赐教！

Sub 设置文本框分散对齐()
     With Sheets(1).Shapes.AddShape(msoTextOrientationHorizontal, 180, 80, 360, 60)
         .TextFrame.HorizontalAlignment = xlHAlignDistributed            'xlRight ' xlCenter '   右对齐、居中均有效，但分散对齐则无效，求高手赐教！
        With .TextFrame2.TextRange
             .Font.Size = 18
             .Font.Name = "黑体"
             .Font.NameFarEast = "黑体"
             .Text = "如何用VBA宏将EXCEL 2007文本框里面的文字（段落）设成分散对齐"
         End With
     End With
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-10-20 20:12

1.     With ActiveSheet.Shapes(1)
   
2.         With .TextFrame2.TextRange
   
3.             With .Characters.ParagraphFormat
   
4.                 .Alignment = msoAlignDistribute
   
5.             End With
   
6.         End With
   
7.     End With

复制代码

跳转到最佳答案楼层

hwc2ycy

录制宏试了没。

2013-子遇

hwc2ycy

1. ActiveSheet.Shapes(1).TextFrame2.TextRange.Characters.ParagraphFormat.Alignment = msoAlignDistribute

复制代码

根据录的宏改了下，对象引用过长。

hwc2ycy

1.     With ActiveSheet.Shapes(1)
   
2.         With .TextFrame2.TextRange
   
3.             With .Characters.ParagraphFormat
   
4.                 .Alignment = msoAlignDistribute
   
5.             End With
   
6.         End With
   
7.     End With

复制代码

zhong5

这个属性太复杂了，总是搞不到点上。

hwc2ycy

zhong5 发表于 2013-10-20 20:56
这个属性太复杂了，总是搞不到点上。

你录制宏就会了，这个自己去查会要命的。

zhong5

hwc2ycy 发表于 2013-10-20 20:59
你录制宏就会了，这个自己去查会要命的。

请教楼主，为什么我的系统录不能录制与文本框等对象相关的宏？
我的录制结果如下：

Sub Macro1()
'
' Macro1 Macro
'
'
End Sub

hwc2ycy

zhong5 发表于 2013-10-20 21:10
请教楼主，为什么我的系统录不能录制与文本框等对象相关的宏？
我的录制结果如下：

用的是啥版本的，我这是10的。

忘了，你用的07的，有些功能确实录不到，特别是10以下版本。
你可以把你录制的过程录个动画我瞧瞧。
我不知道你操作的过程是否正确。

zhong5

谢谢了。录抽对工作有的宏是没有问题的，只是对文本框的不行。