[求助]怎样用VBA使不在文字行中的所有嵌入式图片居中？

ssq1109

我用下面的代码能使文档中所有的嵌入式图片居中，但我希望它只对独立的图片（前后均无文字，即在图片前和后都只有换行符）起作用，而对行中的图片（在它前、或后、或前后有文字，即该图片处在一个段落中，但它在段落中的位置是任意的）不起作用，对该图片所在的段落也无任何影响（下面的代码会使该段落的最后一行居中）。

这该怎样修改代码？

Sub AAA1()

 Dim myS As InlineShape
    For Each myS In ActiveDocument.InlineShapes
      myS.Range.Paragraphs.Alignment = wdAlignParagraphCenter
    Next
End Sub

守柔

请参考：

Sub AAA1()
    Dim myS As InlineShape
    Application.ScreenUpdating = False
    For Each myS In ActiveDocument.InlineShapes
        If Len(myS.Range.Paragraphs(1).Range.Text) = 2 Then
            myS.Range.Paragraphs.Alignment = wdAlignParagraphCenter
        End If
    Next
    Application.ScreenUpdating = True
End Sub

ssq1109

谢谢守柔大侠！

我也想到要用If语句和Len函数，但就是不知道后面怎么表达，您的代码中“= 2 ”是何意？

还有：关闭和打开屏幕更新在代码中有何作用？即：

Application.ScreenUpdating = False/True

还有您和孔版主有时在代码的首尾加进：

Debug.Print Timer

这又起什么作用？

能否请您帮我解释一下，就算授我以渔吧。

谢谢！

[此贴子已经被作者于2006-8-8 21:20:51编辑过]

守柔

我希望您抽空搜索一下本版，我想，里面有足够的答案的。

谢谢。

ssq1109

但据我理解：

If Len(myS.Range.Paragraphs(1).Range.Text) = 2 Then

中“ = 2 ”是否应为“ = 3 ”，“ = 2 ”是基于什么？

关闭屏幕更新后程序能运行更快吧。

Debug.Print的作用我在另一网站上查到了。

谢谢！

[此贴子已经被作者于2006-8-8 22:02:53编辑过]

konggs

我在老大的提示下的分析。

请细看。

u6KcQn9I.rar (155.82 KB, 下载次数: 54)

2006-8-9 07:11 上传

点击文件名下载附件
[求助]怎样用VBA使不在文字行中的所有嵌入式图片居中？

ssq1109

谢谢！看过，学到处理表格的不少东西

ssq1109

QUOTE:

以下是引用ssq1109在2006-8-8 21:35:37的发言：

但据我理解：

If Len(myS.Range.Paragraphs(1).Range.Text) = 2 Then

中“ = 2 ”是否应为“ = 3 ”，“ = 2 ”是基于什么？

关闭屏幕更新后程序能运行更快吧。

Debug.Print的作用我在另一网站上查到了。

谢谢！

今天有一偶然发现：

我原将守柔版主帮我改的代码在一WIN 98SE＋OFFICE 2000的机器上运行，并不能达到目的，后将

If Len(myS.Range.Paragraphs(1).Range.Text) = 2

改为：

If Len(myS.Range.Paragraphs(1).Range.Text) = 3

能够正确运行，之后较长时间未用此代码，今天又要用它，但是在一WIN 2000＋OFFICE 2003上运行，结果不起作用，后我又将“= 3”再改回为“= 2”又可正确运行。

这是为什么？

为了使其有通用性，能否改为：

    Dim myS As InlineShape
    For Each myS In ActiveDocument.InlineShapes
        If Len(myS.Range.Paragraphs(1).Range.Text) = 2 Or _
        Len(myS.Range.Paragraphs(1).Range.Text) = 3 Then
            myS.Range.Paragraphs.Alignment = wdAlignParagraphCenter
        End If
    Next

请高人指点。

守柔

你可以在不同系统和Office配置时，选中嵌入式图片，在VB编辑器中，运行以下代码：

Sub Example()
    Debug.Print Len(Selection)
End Sub
在Word页代码中，嵌入式图形视为“^1”(数字1）

如果你说的问题确实存在，可能需要加上系统配置或者OFFICE配置的版本识别。

ssq1109

谢谢守柔大侠！

我说的问题确实存在，我反复试验过。我在8楼改的代码在2种系统上运行都能得到正确结果，下午准备再找其他不同的系统测试一下。