ExcelVBAからパワポの図形をグループ化したい

Question

エクセルからパワポを開き、図形を挿入して、その図形をグループ化したいです。
shpとtxtboxをグループ化したいです
図形は問題なくあらわあれますがグループ化できてません

この２つのエラーが出ます
実行時エラー　-2147188160(80048240)
application(不明なメンバー)：無効な要求です。アクティブなプレゼンテーションがありません
実行時エラー　-2147467259(80004005)
shapes(不明なメンバー)：失敗しました

'excelから新しくパワポ開く
Dim pawapo As powerpoint.Application
Set pawapo = CreateObject("PowerPoint.Application")
Dim sld As Object
Set sld = pawapo.Presentations.Add 
Dim slide1 As powerpoint.Slide
Set slide1 = sld.Slides.Add(1, ppLayoutBlank) '空スライド追加
pawapo.ActivePresentation.PageSetup.SlideOrientation = msoOrientationVertical
pawapo.Visible = True  

Dim shp As Variant　　　　'四角図形制作ごにょごにょ設定しました
Dim txtbox As Variant　　'テキストボックス制作ごにょごにょ設定しました

'ここでエラー出ます
pawapo.ActivePresentation.Slides(1).Shapes.Range(Array(shp, txtbox)).Group

Comments

[kuma_kuma_]

> Dim shp As Variant　　　　'四角図形制作ごにょごにょ設定しました
> Dim txtbox As Variant　　'テキストボックス制作ごにょごにょ設定しました

略されているからわからないですけど各変数には図形の名称が設定されているんでしょうか？
(データ型はString型のほうが適切)

[ShapeRange メソッド (PowerPoint)](https://docs.microsoft.com/ja-jp/office/vba/api/powerpoint.shaperange.group)

[dedede914]

ありがとうございます
名前つけて名前でグループ化したらできました！！
ありがとうございました

Answer 1

Stringでなまえつけてやったらできました
ありがとうございました