過去ログ

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     852
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　▼Selectされていない任意のShapeに名前付け  ＡＬＬＥＮ 03/3/7(金) 23:44
　　　┗Re:Selectされていない任意のShapeに名前付け  ichinose 03/3/8(土) 10:39
　　　　　　┗Re:Selectされていない任意のShapeに名前付け  ALLEN 03/3/8(土) 11:51

　───────────────────────────────────────
　■題名 ： Selectされていない任意のShapeに名前付け
　■名前 ： ＡＬＬＥＮ
　■日付 ： 03/3/7(金) 23:44
　-------------------------------------------------------------------------
   
Sub Macro1()



　　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 170.25, 90.75, _

　　72#, 72#). Select

　　Selection.Copy

　　ActiveSheet.Paste Destination:=Range("D10")

End Sub



このようなマクロを組み、新たに貼り付けられたshapeに名をつけるにはどうすればよいでしょうか。



マクロを繰り返せばShape(i)のiが変わってしまい、任意の名前を付けることが出来ません。

どなたかアドバイスをお願いいたします。


　───────────────────────────────────────
　■題名 ： Re:Selectされていない任意のShapeに名前付け
　■名前 ： ichinose
　■日付 ： 03/3/8(土) 10:39
　-------------------------------------------------------------------------
   
▼ＡＬＬＥＮ さん：

こんにちは。

図形を扱うことがあまりないんですが、

>Sub Macro1()

>

>　　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 170.25, 90.75, _

>　　72#, 72#). Select

>　　Selection.Copy

 　　with ActiveSheet

　　　 .Paste Destination:=Range("D10")

　　　 .Shapes(.Shapes.Count).Name = "abc"

　　　 End With

>End Sub

ではどうでしょうか？


　───────────────────────────────────────
　■題名 ： Re:Selectされていない任意のShapeに名前付け
　■名前 ： ALLEN
　■日付 ： 03/3/8(土) 11:51
　-------------------------------------------------------------------------
   
▼ichinose さん：

>▼ＡＬＬＥＮ さん：

>こんにちは。

>図形を扱うことがあまりないんですが、

>>Sub Macro1()

>>

>>　　ActiveSheet.Shapes.AddShape(msoShapeRectangle, 170.25, 90.75, _

>>　　72#, 72#). Select

>>　　Selection.Copy

> 　　with ActiveSheet

>　　　 .Paste Destination:=Range("D10")

>　　　 .Shapes(.Shapes.Count).Name = "abc"

>　　　 End With

>>End Sub

>ではどうでしょうか？



Shapes.countですか。

ああ、これなら常に最新の番号が取得できますね。

ありがとうございます。早速試してみます。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　通常モードに戻る　　┃　　ＩＮＤＥＸ　　┃　　≪前へ　　│　　次へ≫　　　
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Ｐａｇｅ     852