vba 判断文本框内容是否为空_VBA代码解决方案第119讲：如何遍历工作表中的图形...

大家好，我们今日继续讲解VBA代码解决方案的第119讲内容：如何遍历工作表中的图形。其实这节的内容在我前面的章节中已经讲过，今日但拿出来，作为一节的专门的内容。

工作表中的多个图形，有时我们需要根据实际的需要遍历所有的图形一达到某种共同的操作，这时需要怎么做呢？可以使用For Each...Next 语句循环遍历所有图形。这时要根据图形的Type属性进行相应额操作，不知道大家是否还记得图形的Type属性呢，下面的表格中有常见的16种类型，需要的时候可以查到；

1 msoShapeTypeMixed -2 混合型图形

2 msoAutoShape 1 自选图形

3 msoCallout 2 没有边框线的标注

4 msoChart 3 图表

5 msoComment 4 批注

6 msoFreeform 5 任意多边形

7 msoGroup 6 图形组合

8 msoFormControl 8 窗体控件

9 msoLine 9 线条

10 msoLinkedOLEObject 10 链接式或内嵌OLE对象

11 msoLinkedPicture 11 剪贴画或图片

12 msoOLEControlObject 12 ActiveX 控件

13 msoPicture 13 图片

14 msoTextEffect 15 艺术字

15 msoTextBox 17 文本框

16 msoDiagram 21 组织结构图或其他图示

我们还是以实际的问题进行分析，一个工作表中中有很多的图形，我们需要把其中的自选图形部分的文本修正为“VBA代码解决方案”。如下面截图所示。

以上除了我茶壶，其余的都是自选图形，代码该怎么写呢？如下：

Sub MynzShapes()

Dim myShape As Shape

Dim i As Integer

i = 0

For Each myShape In Sheets("sheet2").Shapes

If myShape.Type = msoAutoShape Then

myShape.TextFrame.Characters.Text = "VBA代码解决方案"

i = i + 1

End If

MsgBox ("共修改了" & i & "个文本框的文本！")

End Sub

代码窗口：

代码解析：

MynzShapes过程在工作表中的所有自选图形中的文本更换。

第5行代码使用For Each...Next 语句循环遍历工作表中所有的图形对象。

第6行到第9行代码如果图形对象是自选图形msoAutoShape则在写入文本"VBA代码解决方案"。其中第6行代码根据Type属性判断图形对象的属性的，应用于Shape对象的Type属性返回或设置图形类型，读者可以在代码运行时查看这个属性值。

第7行代码根据返回的Type属性值在写入相应的文本，

运行后：

今日内容回向：

1 如何判断图形的属性？

2 如何更改图形的自选文字？

《VBA代码解决方案》终于可以和大家见面了，是我将一些非常实用的VBA内容结集成册，PDF文件，可以从中直接查找到你想要解决问题的思路和方法，可以复制文中的VBA代码直接使用。有需要的朋友微信联络我NZ9668。

vba 判断文本框内容是否为空_VBA代码解决方案第119讲：如何遍历工作表中的图形...相关推荐

vba 判断文本框内容是否为空_VBA代码用SetFocus精确控制焦点事件
VBA++ 题记: 静下心,多学习有用的知识,多提高自己的水平和能力,这才是正道.时间就像一张网,你撒在哪里,你的收获就在哪里.谨记自己的方向,这是路之所在.适当节制自我的各种欲望,谁都逃不过时间的历 ...
vba 判断文本框内容是否为空_校验数据一旦失败，VBA代码自动控制焦点返回的另一备选方案...
大家好,我们今日继续讲解VBA代码解决方案的第95讲内容:如果文本框的录入校验不能通过,光标仍返回文本框中的另一方案.在上一讲中我讲了利用EXIT事件中的Cancel 参数的设置来达到我们的目的(值是 ...
vba 判断文本框内容是否为空_【VBA】数据输入 Inputbox 基本语法
在使用Excel 的过程中,如果需要用户输入简单的数据,作为"已知数",那么可以使用inputbox 函数显示一个对话框,供用户在对话框中输入数据. Inputbox 函数语法在一 ...
vba 判断文本框内容是否为空_Excel/VBA编程用户交互函数(二)——InputBox()函数和inputbox方法...
在上一篇文章Excel/VBA编程用户交互函数(一)--msgbox()函数中,小伙伴们了解了消息弹窗的知识,今天我们来学习一下Excel/VBA编程的第二个用户交互函数Inputbox()函数及In ...
vba 当前文件名_VBA代码解决方案第77讲内容：如何导出文件
大家好,我们今日继续讲解VBA代码解决方案的第77讲内容:如何导出文件,形成一个文本文件,如果需要将工作表中的数据保存为文本文件,可以创建一个文本文件用于保存数据. 应用于FileSystemObje ...
sqlyog怎么查找表_VBA代码解决方案第58讲：在VBA中查找指定工作表的实用方法
大家好,我们今日继续讲解VBA代码解决方案的第58讲内容:在VBA中查找指定工作表的方法.在上一个例子中,我们通过一个自定义函数解决了删除工作表的方法.其实实现目的的方法有很多种,不必要必须有某种办法 ...
vue 鼠标点击事件_VBA代码解决方案第115讲：点击鼠标实现精准控制触发事件的VBA代码第二方案...
大家好,我们今日继续讲解VBA代码解决方案的第115讲内容:工作表事件中,根据Target参数不同,实现精准控制触发事件的VBA代码第二方案.在上一讲中我们讲了利用Address的属性实现控制触发事件 ...
html文本框判断,html的判断文本框内容举例
在很多情况下,我们都需要登陆.注册等,如果输入的东西不符合要求,那么就会无法提交数据内容. 我们这次的界面设计里面用到了这个,觉得有用拿来看看. 序号这里的pattern里面是正则表达式规则,是在t ...
【重构】判断文本框组合框是否为空
在机房重构中,判断文本框与组合框的内容是否为空是必不可少的,如果遇到文本框较多的窗体一个一个的进行判断实在是太麻烦,而且重复代码太多.重构中避免重复代码的出现是必须的,所以可以将重复的代码封装成一个类 ...

vba 判断文本框内容是否为空_VBA代码解决方案第119讲：如何遍历工作表中的图形...

vba 判断文本框内容是否为空_VBA代码解决方案第119讲：如何遍历工作表中的图形...相关推荐

最新文章

热门文章