Excel VBA質問箱 IV

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

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


12252 / 13646 ツリー ←次へ | 前へ→

【11504】テキストボックスの追加方法 カド 04/3/10(水) 12:54 質問
【11505】Re:テキストボックスの追加方法 こうちゃん 04/3/10(水) 12:56 回答
【11508】Re:テキストボックスの追加方法 カド 04/3/10(水) 13:12 お礼
【11507】Re:テキストボックスの追加方法 Jカーター 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:テキストボックスの追加方法
回答  Jカーター  - 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 -

引用なし
パスワード
   ▼Jカーター さん いつも教えていただき、ありがとう御座います。

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

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

今後ともお願いします。

PS
VBA全体のレベルが上がってる感じですね。

12252 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free