Word2010画布中形状无法使用对齐的解决办法.docx

Word2010画布中形状无法使用对齐的解决办法
1 问题描述
在Word可以利用形状工具绘制出专业的流程图等插图，但Word2010中，在画布中绘图时，选中多个对象，无法使用“左对齐”等对齐功能，具体表现为对齐功能按钮为灰色，无法点击（如图1），不能方便地调整形状位置，使插图更专业，而这个功能在Office2003，Office2007都可以用。

图 1 对齐按钮为灰色，无法点击
2 解决办法
关于这个问题，网上也有其他人遇到，在各个Office论坛也有提问者，但大多无法解决，建议退回2007。有人说英文版没有此问题，经亲身测试，英文版也有这个问题，在微软的官方论坛上，也有人提问，经MVP证实，是Office2010存在的一个bug。既然知道是个bug，微软为何迟迟不修复呢，为寻找答案，在万能的谷歌上用英文搜索，终于在微软的英文社区找到一篇帖子，帖子地址如下：

我仔细看了每一页的每一条回复，上面很多人都表示经常用到这个功能，对Word2010的这个bug十分不满，已有多个正版用户正式联系了微软的客服人员，都未得到如何解决及何时修复的明确答复，因而有几个用户提出了几个应对此问题的方法，归纳如下，希望能对喜欢Office2010并经常用到这个功能的用户有所帮助。
2.1 方法一：在PowerPoint中绘图，再粘贴到Word中
这个方法确实管用，而且即使对齐功能可用，在PowerPoint中绘图中远比word方便，所谓术业有专攻。但这样一来会遇到一个问题，在PowerPoint绘制的图形如果改变了主题，而Word中应用了是默认主题或另一套主题，粘贴到Word中的时候，主题会变成Word中的主题，粘贴到Word后，还要进一步修改才能用。另外，画个图，老要在PowerPoint和Word中来回切换，也比较麻烦。
2.2 方法二：将文档存成Word97-2003文档
细心的使用者发现，如果将文档存成Word97-2003文档，Word中相应的功能便可以使用，这对于还一直在使用.doc格式文档的使用者来说是个好消息，这也是我认为成本最小的解决方法，最多画完图后再转换成.docx文档即可。
2.3 方法三：最彻底的方法，自己编VBA实现此功能，并将其添加到Ribbon面板上
一位专业的使用者自己使用VBA实现了上述对齐功能，并将代码和添加按钮的方法在网络上公布，这是目前最彻底的方法，原文地址如下：
代码及代码添加方法：
在Ribbon界面增加按钮的方法：
作者貌似是个日本人，这里没有歧视，他给出的方法确实有用，就简单翻译了一下。
代码添加方法：
1>按Alt+F11打开Visual Basic面板（或者先【文件】|【选项】|【自定义功能区】|勾选开发工具面板|【确定】|在开发工具面板点击【Visual Basic】按钮打开），然后在Normal上【右键】|【插入】|【模块】，如图2所示：

图 2 插入模块
2>插入如下代码，并保存即可。
Private Sub AlignHorizontal(ARate As Single)
Dim Min, Max, i As Integer
Min = 32768
Max = -32768
For Each AShape In Selection.ChildShapeRange
If Min > AShape.Left Then
Min = AShape.Left
End If
i = AShape.Left + AShape.Width / 20
If Max < i Then
Max = i
End If
Next AShape
For Each AShape In Selection.ChildShapeRange
AShape.Left = Min * (1 - ARate) + Max * ARate - AShape.Width / 20 * ARate
Next AShape
End Sub

Private Sub AlignVertical(ARate As Single)
Dim Min, Max, i As Integer
Min = 32768
Max = -32768
For Each AShape In Selection.ChildShapeRange
If Min > AShape.Top Then
Min = AShape.Top
End If
i = AShape.Top + AShape.Height / 20
If Max < i Then
Max = i
End If
Next AShape
For Each AShape In Selection.ChildShapeRange
AShape.Top = Min * (1 - ARate) + Max * ARate - AShape.Height / 20 * ARate
Next AShape
End Sub

Private Sub AlignShape(AHorizontal As Boolean, ARate As Single)
If Selection.ChildShapeRange.Count = 0 Then
Exit Sub
End If
If AHorizontal Then
AlignHorizontal (ARate)
Else
AlignVertical (ARate)
End If
End Sub

Sub AlignHorizontalLeft()
AlignShape True, 0
End Sub

Sub AlignHorizontalCenter()
AlignShape True, 0.5
End Sub

Sub AlignHorizontalRight()
AlignShape True, 1
End Sub

Sub AlignVerticalTop()
AlignShape False, 0
End Sub

Sub AlignVerticalMiddle()
AlignShape False, 0.5
End Sub

Sub AlignVerticalBottom()
AlignShape False, 1
End Sub
3>调用这些功能时只需先选中需要对齐的形状，点击Alt+F8（或者【开发工具】|【宏】），调出宏对话框，然后选中相应的宏，并运行就可以实现相应的对齐功能了。
在Ribbon面板上为对齐功能添加相应的按钮
以上三步已经实现了在画布中也能对齐的功能，但每一次都要运行宏，不够简便，而且对于初级用户来说，不够点击按钮直观，因而介绍为相应的宏代码在Ribbon上添加相应按钮的方法。
1>【文件】|【选项】|【自定义功能区】，然后按图3步骤操作。

图 3 Ribbon面板上插入新组
2>为宏添加相应按钮，具体步骤如图4。

图 4 为宏添加相应按钮
这样就能在Ribbon界面中看到新添加的按钮了，还可以为按钮重命名，如右对齐等，以区分不同的功能，具体可以自己摸索修改。
至此，相当在Word2010中自己开发了形状对齐功能。
3 结论
以上提供了三种方法解决Word2010中无法使用形状对齐功能，具体使用哪种，根据自己需要及自身水平选择，希望大家使用Word2010顺利。