| |
▼bejikeni さん：
こんばんは。
※要参照設定 Microsoft Excel x.x Object Library
Sub グループ化解除()
Dim xlsApp As New Excel.Application
Dim xlsWkb As Excel.Workbook
Dim xlsSht As Excel.Worksheet
Dim MyName As String
Dim MySheet As String
Dim Sh As Excel.Shape
MyName = "C:\Test.xls"
MySheet = "対象シート"
Set xlsWkb = xlsApp.Workbooks.Open(MyName)
Set xlsSht = xlsWkb.Sheets(MySheet)
For Each Sh In xlsSht.Shapes
If Sh.Type = msoGroup Then
Debug.Print Sh.Name
End If
Next
set xlsSht = Nothing
xlsWkb.Close False: Set xlsWkb = Nothing
xlsApp.Quit: Set xlsApp = Nothing
End Sub
上記のコードで対象シートのグループ名をイミディエトウィンドウに
表示させる事ができます。
あとは「Ungroup」メソッドで解除できると思いますが、未検証です。
ちょっと席を外す都合検証ができませんでしたが取り急ぎ回答をさせて頂きます。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
