Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12271 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【11504】テキストボックスの追加方法 カド 04/3/10(水) 12:54 質問
【11505】Re:テキストボックスの追加方法 こうちゃん 04/3/10(水) 12:56 回答
【11508】Re:テキストボックスの追加方法 カド 04/3/10(水) 13:12 お礼
【11507】Re:テキストボックスの追加方法 Ｊカーター 04/3/10(水) 13:08 回答
【11509】Re:テキストボックスの追加方法 カド 04/3/10(水) 13:17 お礼
【11504】テキストボックスの追加方法
質問  カド E-MAIL  - 04/3/10(水) 12:54 -
引用なし
パスワード
   よく　.select　は使わないほうが良いと聞きます。

下記でテキストボックスが作成されますが、.select　を使わない方法を
教えてください。

ActiveSheet.Shapes.AddTextbox(msoTextOrientationVerticalFarEast, 60, 100, 30, 30).Select
【11505】Re:テキストボックスの追加方法
回答  こうちゃん E-MAIL  - 04/3/10(水) 12:56 -
引用なし
パスワード
   カドさん、こんにちは

>下記でテキストボックスが作成されますが、.select　を使わない方法を
>教えてください。
>
>ActiveSheet.Shapes.AddTextbox(msoTextOrientationVerticalFarEast, 60, 100, 30, 30).Select

これでいかがでしょ・・

ActiveSheet.Shapes.AddTextbox msoTextOrientationVerticalFarEast, 60, 100, 30, 30
【11507】Re:テキストボックスの追加方法
回答  Ｊカーター  - 04/3/10(水) 13:08 -
引用なし
パスワード
   こんにちは。
Selectしないで追加後のいろいろな設定がしたいということなら
Withを使うかオブジェクト変数に格納してはどうでしょうか？

●Withの例--------------------------------------------
With Activesheet.Textboxes.Add(1,1,100,15)
　　.Name = "****"
　　.Text = "xxx"
　　.Font.Color = vbBlue
End With

●変数の例
Dim Txt As TextBox

Set Txt = Activesheet.TextBoxes.Add(2,4,125,38)
Txt.Name = "謎の箱"

べた書きなのでミスがあったらすいません。
【11508】Re:テキストボックスの追加方法
お礼  カド E-MAIL  - 04/3/10(水) 13:12 -
引用なし
パスワード
   ▼こうちゃん さん　回答ありがとう御座います。

なるほど、かっこを外す必要があったのですね。
【11509】Re:テキストボックスの追加方法
お礼  カド E-MAIL  - 04/3/10(水) 13:17 -
引用なし
パスワード
   ▼Ｊカーター さん　いつも教えていただき、ありがとう御座います。

１年数ヶ月ぶりにＶＢＡに帰ってきたので、分からないことだらけです。
とくに、オブジェクト物は分かりません。

また、色々な記述方法が有ることも混乱の要因です。

今後ともお願いします。

ＰＳ
ＶＢＡ全体のレベルが上がってる感じですね。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12271 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free