VBA设置对象格式没有控件属性 - 爱问答

(爱问答)

VBA设置对象格式没有控件属性

设置对象格式中找不到控件,是什么问题呀,各位大神VBA  设置对象格式没有控件属性

 代码及注释如下: Sub main()    Dim Sh1(1 To 100) As String‘定义数组,用于存放shape名    Dim sh As Shape    Dim i As Integer        With Worksheets("Sheet6")            For Each sh In .Shapes'遍历所有的Shape对象                If Not ***.intersect(***.topleftcell, .Range("A1:J20")) Is Nothing Then'Shape对象如何不在A1:J20区域中                    i = i + 1'累加数量                    Sh1(i) = ***.Name'将Shape名依次存放在数组Sh1中                End If            Next sh        End With        activesheet.***.range(Sh1).Select,选中Sh1中存放的Shape End Sub 追答:选中你要进行操作吗?说一下,下一步做什么呢! 追答:可以一个个移啥,都移相同的距离,如果一定要全部选中,吃个饭回来写。

下一篇:关闭cdr发生了快速异常检测失败将不会调用异常处理程序怎么解决?

上一篇:编写一个程序,其功能是给一维数组a输入任意的6个整数,假如为574891

热门标签:
excel 网盘 破解 word dll
最新更新:
w10相关问题 NB-IoT上行采用什么HARQ机制? 请教:win11运行控件加载出错?? 为什么这个程序会出现“errorC2059:语法错误:“类型””的结果呀?求解答,谢谢!! C++中vector伸长数组属于STL吗 请问小程序开发者怎么添加呢? 将两个长度相同的一维数组各下标相同的对应元素相乘,并将结果放在另一个一维数组中 CJ差速锁再次升级优化后有哪些不同呢? 封闭式立体双扬声器和杜比全景声双扬声器哪个好 U.2固态硬盘转换为M.2接口后,这会影响前者的性能吗 你购买新电脑时,会全部使用固态硬盘吗 荣耀x30有没有nfc功能 主路由和交换机都是千兆,ac交换机是百兆带千兆ap有影响吗 WIN10插入usb不显示 进入老师的直播课视像头会自动打开吗,我怎么感觉钉钉好像会自动打开摄像头