作者：绿色风
分类：
时间：2022-08-17
浏览：136
楼主
BIN_YANG168 |
Q: 如何利用VBA改变艺术字的调整点调整艺术字？
A: ALT +F11→插入模块→在模块中输入以下代码:- Sub 调整点()
- ActiveSheet.Shapes("WordArt 7").Select
- Selection.ShapeRange.Adjustments.Item(1) = 0.6931
- Range("A1").Select
- End Sub
|
2楼
高玉甫 |
朋友，我复制了您的代码，测试了，结果代码不同，现象如附件所示，还请您赐教。01.png
 |
3楼
omnw |
第一行的sub后面加一个空格就好了！ |
4楼
pzhds |
学会了 |
5楼
高玉甫 |
师傅，能上传个附件吗？我真的想学。 |
6楼
biaotiger1 |
[Excel VBA] 如何用VBA改变形状的调整控点？ http://www.exceltip.net/thread-9390-1-1.html
|
7楼
高玉甫 |
您的链接不错，学习了，谢谢您。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一