[VBA简单习题]新年送积分

konggs

新的一年，出一个简单的题目给大家做做，其实与其说是出题目，不如说是与大家分享一下。只是如果直接分享，大家记忆不深，所以，以题目的形式。

要求：如何判断选中的图片是浮于文字上，还是浮于文字下？

环境：Word2003。

很简单，但可能不容易想到，等待你的答案。关键代码就一行。

答对者，送1分。

祝大家新年快乐！天天开心！开不开心是一个心情！

论坛一年好过一年。

我相信：一份付出不一定会有回报，但不断的付出就一定会有回报！

谢谢守版主、陈版主、郭版主与论坛的其他版主一直以来对我的关心与照顾，谢谢大家！

[此贴子已经被作者于2008-1-1 18:48:21编辑过]

射雕

konggs　版主！新年好！

　　呵呵，还简单呢？我是初学者，在EXCEL中遇到此类问题总是先录宏，再看看代码的。

看到版主的题目，如法炮制，打开WORD2003，录宏，却发现根本没法选定插入的图片，为什么？

三戒

我的答案

Sub test()
Dim sh As Shape
For Each sh In ThisDocument.Shapes
 Debug.Print sh.WrapFormat.Type
Next
End Sub

menghuanqu

惭愧！偶是虾米一个。。。。。。

三戒

请版主指正

Sub test2()
 On Error Resume Next
 Select Case Selection.ShapeRange.WrapFormat.Type
    Case 3
     MsgBox "当前选中的图片位于文字前面"
    Case 5
      MsgBox "当前选中的图片位于文字后面"
    End Select
End Sub

konggs

射雕兄：你可以选中图片后，在录制宏。

三戒兄：你试试插入一个文本框，将其设为文字上与文字下时，你的程序读出的是否是正确的？

menghuanqu兄：不用着急，努力就有机会！加油，慢慢来。

三戒

QUOTE:

以下是引用konggs在2008-1-2 8:51:21的发言：

射雕兄：你可以选中图片后，在录制宏。

三戒兄：你试试插入一个文本框，将其设为文字上与文字下时，你的程序读出的是否是正确的？

menghuanqu兄：不用着急，努力就有机会！加油，慢慢来。

konggs兄，昨天编写程序程序时，用的是office 2007，试验结果是可以满足您所提的要求。

今天在office 2003上测试后，发现对于文本框不能正确显示是位于文字之上还是文字之下。

这也许是office 2007较office 2003已经改进的地方。

西伯利亚

好像这一分很难拿。我对VBA不大懂，希望楼主能再给点提示。呵呵。

konggs

三戒兄，2007好像用这个宏也不行。

西伯利亚兄，提示：在2003有一个与宏有关的脚本编辑器，在2007下没有了。

当然，2007也能判断，技巧相同，代码有一句不同。貌似不是三戒兄写的那个代码就可以的。

[此贴子已经被作者于2008-1-4 7:55:59编辑过]

三戒

QUOTE:

以下是引用konggs在2008-1-4 7:55:20的发言：

三戒兄，2007好像用这个宏也不行。

西伯利亚兄，提示：在2003有一个与宏有关的脚本编辑器，在2007下没有了。

当然，2007也能判断，技巧相同，代码有一句不同。貌似不是三戒兄写的那个代码就可以的。

konggs兄，请你仔细在office 2007下测试，我的代码是完全可以满足你的要求的！

WdWrapType 枚举

指定如何在形状周围环绕文字。

版本信息
 已添加版本：  

名称	值	描述
wdWrapInline	7	将形状嵌入到文字中。
wdWrapNone	3	将形状放在文字前面。请参阅	wdWrapFront
wdWrapSquare	0	使文字环绕形状。行在形状的另一侧延续。
wdWrapThrough	2	使文字环绕形状。
wdWrapTight	1	使文字紧密地环绕形状。
wdWrapTopBottom	4	将文字放在形状的上方和下方。
wdWrapBehind	5	将形状放在文字后面。
wdWrapFront	6	将形状放在文字前面。

说明

与 WrapFormat 对象的 Type 属性一起使用。您可以在“高级版式”对话框的“文字环绕”选项卡上查看每个环绕类型的外观。

2c0cilQW.rar (14.51 KB, 下载次数: 6)

2008-1-4 11:31 上传

点击文件名下载附件

[此贴子已经被作者于2008-1-4 11:31:57编辑过]