作者noworneverev (小朋友)
看板Office
标题Fw: [VBA ] VB转VBA ReDim Preserve 问题
时间Sat May 20 19:06:53 2017
※ [本文转录自 Visual_Basic 看板 #1P7yCucY ]
作者: noworneverev (小朋友) 看板: Visual_Basic
标题: [VBA ] VB转VBA ReDim Preserve
时间: Sat May 20 12:16:46 2017
我有一段VB的程式码想转成VBA遇到一点困难
VB的程式码如下：
'Group the line and the textbox
Dim MidObj() As Object
ReDim Preserve MidObj(2)
MidObj(0) = shapeBeg.Name
MidObj(1) = connector1.Name
app.ActiveSheet.Shapes.Range(MidObj).Group()
目的是要群组一个线条跟一个文字方块，这个是正确的
VBA现在我写的是：
ReDim Preserve MidObj(2)
MidObj(0) = GroupShapeBeg1
MidObj(1) = GroupShapeBeg2
ActiveSheet.Shapes.Range(Array(GroupShapeBeg1, GroupShapeBeg2)).Select
Selection.ShapeRange.Group.Select
我的想法是把原本shapeBeg.Name、connector1.Name在VBA里先分别宣告给
GroupShapeBeg1与GroupShapeBeg2，再把它们群组起来，可是没有作用QQ
请求大大帮忙看看哪里有问题，谢谢
--
An Excel Add-in for audiors and accountants
http://tickmark.tw/
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 111.253.30.169
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Visual_Basic/M.1495253816.A.9A2.html
※ 发信站: 批踢踢实业坊(ptt.cc)
※ 转录者: noworneverev (111.253.30.169), 05/20/2017 19:06:53
1F：→ soyoso: midobj宣告为stirng，midobj取得shape的name，如只有二个 05/20 22:04
2F：→ soyoso: 索引值为1,2，取得後可以shapes.range(midobj)方式群组 05/20 22:06