[VBA专家]利用VBA代码遍历所有图形的方案

大家好，世界各地，疫情施虐。疫情过后会是什么？对于后疫情时代大家很难预测，或许是供应链的断裂，经济下行的压力加大，但可以肯定的是会催生新的经济增长点。在今后更加严峻的存量残杀世界中，对于我们每个人，要尽可能多学习有用的知识，为自己充电。知识的储备，特别是新知识的储备是我们为后疫情时代做的必要准备。
今日继续和大家分享VBA编程中常用的常用"积木"过程代码。这些内容大多是我的经验和记录，来源于我多年的经验。今日分享的是NO.235 ，内容是：
NO. 235：利用VBA代码遍历工作表中的所有图形，并修改文本属性

本文插图
VBA过程代码235：利用VBA代码遍历工作表中的所有图形，并修改文本属性
Sub Mynz ()
Dim myShape As Shape
Dim i As Integer
i = 0
For Each myShape In Sheets("119").Shapes
If myShape.Type = msoAutoShape Then
myShape.TextFrame.Characters.Text = "VBA代码解决方案"
i = i + 1
【[VBA专家]利用VBA代码遍历所有图形的方案】End If
Next
MsgBox ("共修改了" & i & "个文本框的文本！")
END SUB

本文插图
代码解析：Mynz过程在工作表中的所有自选图形中的文本更换。代码使用For Each...Next 语句循环遍历工作表中所有的图形对象。如果图形对象是自选图形msoAutoShape则写入文本"VBA代码解决方案" 。代码根据返回的Type属性值写入相应的文本，
VBA是利用OFFICE实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，总结了四部VBA学习资料，是我"积木编程"思想的体现。
第一：VBA代码解决方案，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点；
第二：VBA数据库解决方案，是数据处理的专业利器，介绍利用ADO连接ACCDB,EXCEL 。
第三：VBA数组与字典解决方案，讲解VBA中的数组和字典的利用。
第四：VBA代码解决方案之视频，是专门面向初学者的视频讲解，可以快速入门，更快的掌握这门技能。

本文插图
VBA真的非常实用，希望大家掌握这个工具，利用这个工具，让自己在工作中轻松，高效，快乐。为后疫情时代做好知识的储备。

[VBA专家]利用VBA代码遍历所有图形的方案

推荐阅读

520祝福的话语,句句暖人心 520祝福

【克什米尔】克什米尔激战持续两天，近200人倒在血泊中，大批印军被击毙！

手工面料教程手工面料方案

湖南积极引导社会扶贫合力攻坚

关羽|关羽五虎将被喷惨，张大仙体验后给出公正评价，这次老马又亏了

运动后足弓酸痛是啥问题，怎样解决

全国最好的6大高速服务区，你开车路过吗

【新华网】美国前总统卡特准备接受手术缓解脑压高

江苏如何进行理商标注册查询？

网易娱乐|台媒曝王大陆母亲病逝送医后研判是脑干肿瘤破裂

【肝脏】肝不好，手脚会有4种表现，若占1个，警惕是肝在向你“求救”！

南极|科学家感到惊异，南极卫星拍摄到地下城市，不冻湖里藏有外星基地

核桃果肉能吃吗

肝脏|肝癌发现即晚期，医生：睡觉时有三症状，或是“求救信号”莫忽视

疾病|寿命不长的男性，多半会有这3个“标准”，希望你一个都没有

来历|陇上传说（73）丨“罗家洞”的来历不简单

去年北京实际利用外资167.4亿美元同比增近四成

『蜗牛的吃鸡日常』在镜头镀膜上省钱，魅族前副总裁李楠嘲讽P40Pro：用一个超大底

身体或内心，最难受的一次是怎么的？

「C罗」山东鲁能热身赛确定转播机构，齐鲁德比或成本赛季“绝唱”！