エクセルの学校：全文検索：Hyper Estraier：オートシェイプ

Results of 1 - 1 of about 1039 for オートシェイプ (0.001 sec.)

[[20081203183540]]: #score: 6703; @digest: 6f42cbed30ea34de896bd601c7bdf1af; @id: 41137; @mdate: 2008-12-03T21:14:06Z; @size: 1411; @type: text/plain; #keywords: 録限 (7748), activeshapes (7748), chisa (6055), 上名 (5926), プ登 (5365), rectangle (4354), 上作 (4226), ♪♪♪ (3676), シェ (3613), ェイ (3401), トシ (2615), イプ (2521), ド上 (1285), ドボ (1250), marbin (1093), オー (989), 角形 (931), コマ (916), 前ボ (862), マン (773), typename (751), 四角 (698), 来上 (613), 名前 (488), 限定 (469), ンド (468), shapes (440), 登録 (398), commandbutton1 (395), selection (381), ボタ (381), プに (366); 『オートシェイプの名前をセルに・・・』（CHISA）
こんにちわm(__)m またオートシェイプについての質問です。四角形のオートシェイプを2つ以上作ると、それぞれのオートシェイプにマクロのコード上名前がつくみたいです。 ActiveSheet.Shapes("Rectangle 1").Select ----------- ↑ （この部分のことです）このオートシェイプの名前をセルに表示することはできますか? 例えば、複数あるオートシェイプの1つを選択（クリック）して、ユーザーフォームのコマンドボタンを押すと、セルA1にRectangle 1と表示させるみたいな感じです。単純に考えて Private Sub CommandButton1_Click() Cells(1,1).value = ActiveShapes.Name End sub と書いてみましたが、やっぱりダメでした(;_;) (CHISA) ---- ↓を標準モジュールに記述しシェイプに登録してみてください。 Sub test() MsgBox ActiveSheet.Shapes(Application.Caller).Name End Sub なお、表示される名前は名前ボックスに表示されるものとは違います。 (MARBIN) ---- MARBINさんありがとうございますm(__)m MsgBoxの部分を変更して思いどおりに出来上がりました♪♪♪ ちなみに上記のコードはシェイプ登録限定で、コマンドボタンとかでは動かないんですか? (CHISA) ---- コマンドボタンなどからでしたら、↓でいけるとおもいます。 If TypeName(Selection) = "Range" Then Exit Sub MsgBox Selection.Name (MARBIN) ---- MARBINさんばっちりです♪ ありがとうございましたm(__)m (CHISA) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/200812/20081203183540.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ