Excel VBA質問箱 IV

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

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


69786 / 76732 ←次へ | 前へ→

【11461】Re:テキストボックスの選択
回答  Jカーター  - 04/3/9(火) 16:08 -

引用なし
パスワード
   こんにちは。
例なので非表示ブックまで作ってます。
---------------------------------------------------------------------
Sub test1()
  Dim i As Long
  
  With Workbooks.Add
    i = Windows.Count
    Windows(.Name).Visible = False
    With .Sheets(1).TextBoxes.Add(1, 1, 100, 15)
      .Text = "Jカーター"
      .Font.Color = vbRed
      .ShapeRange.Line.ForeColor.RGB = vbRed
      .Copy
    End With
  End With
'  ここまで非表示のブックに対する処理です。
  
'  非表示ブックにあるTextboxをコピペ
  ThisWorkbook.Sheets(1).Paste
  
'  ここで作ったブックを表示(見えないと確認できないので)
  Windows(i).Visible = True
End Sub

1 hits

【11445】テキストボックスの選択 カド 04/3/9(火) 13:13 質問
【11447】Re:テキストボックスの選択 Jカーター 04/3/9(火) 13:21 回答
【11449】Re:テキストボックスの選択 カド 04/3/9(火) 14:32 質問
【11450】Re:テキストボックスの選択 IROC 04/3/9(火) 14:44 回答
【11454】Re:テキストボックスの選択 カド 04/3/9(火) 14:58 質問
【11461】Re:テキストボックスの選択 Jカーター 04/3/9(火) 16:08 回答
【11462】Re:テキストボックスの選択 カド 04/3/9(火) 16:26 質問
【11463】Re:テキストボックスの選択 Jカーター 04/3/9(火) 16:33 回答
【11467】Re:テキストボックスの選択 カド 04/3/9(火) 16:50 質問
【11468】Re:テキストボックスの選択 Jカーター 04/3/9(火) 16:52 発言
【11469】Re:テキストボックスの選択 Jカーター 04/3/9(火) 16:58 回答
【11471】Re:テキストボックスの選択 カド 04/3/9(火) 17:08 お礼
【11475】Re:テキストボックスの選択 カド 04/3/9(火) 17:21 お礼

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