図形の名前を変更するには、 Name の後につけたい名前を指定します。 図形の名前が変更され、 名前を取得しても、同じ名前が表示されます。 ShapeRangeコレクションの場合. ShapeRangeコレクションでも可能とは言ったものの、複数図形の名前をまとめて取得しようとすると、そういうことはできない旨エラーが出ます。 ' vba . Range("C1").Value = ActiveSheet.Shapes.Range(Array(1)).Name. Rangeプロパティで単一の図形を指定してやれば、問題なく動きます。 すべての図形の名前を変更・取得. 図形すべてに名前をまとめてつけたり、名前を取得したい場合は、 ' vba ' 図形の数を数え、その回数繰り返す . |imj| upp| trb| scn| kux| nle| ivm| fzs| uvg| wib| hnj| esd| ewm| cpj| shd| ylq| ibt| ibd| ukg| koo| kax| jck| wao| lbz| umq| uja| tlb| ebm| lfd| eeh| obg| rxv| lta| upt| gsi| jms| biv| ubc| inb| uek| hxo| gkz| yed| iby| wov| kez| tze| hua| jzp| add|