Excel VBA質問箱 IV

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

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


7184 / 13644 ツリー ←次へ | 前へ→

【40629】吹出しを自動作成した後文字をすぐ入力したい あくたいおん 06/7/19(水) 14:00 質問[未読]
【40630】Re:吹出しを自動作成した後文字をすぐ入力... あくたいおん 06/7/19(水) 14:04 発言[未読]
【40654】Re:吹出しを自動作成した後文字をすぐ入力... ichinose 06/7/19(水) 22:06 発言[未読]
【40663】Re:吹出しを自動作成した後文字をすぐ入力... あくたいおん 06/7/20(木) 9:56 お礼[未読]

【40629】吹出しを自動作成した後文字をすぐ入力し...
質問  あくたいおん  - 06/7/19(水) 14:00 -

引用なし
パスワード
   以下のようなマクロでフキダシを自動作成しています。
マクロの自動記録では、作成した後に、文字を入力することはできるのですが、
ボックスの中にカーソルを入れて待っている状態を記録することができませんでした。
作成後すぐに文字を入力できるよう、ボックス内にカーソルを出して、文字入力を待っている状態にしたいのですが、どのようにすればできるでしょうか?

【40630】Re:吹出しを自動作成した後文字をすぐ入...
発言  あくたいおん  - 06/7/19(水) 14:04 -

引用なし
パスワード
   そのマクロです。

Sub ふきだし()
  Dim vLeft, vtop, vHeight, vWidth As Long
  With ActiveCell '位置調整
    vLeft = .Left + .Width + 22
    vtop = .Top - 15
    vHeight = 10
    vWidth = 50
  End With
  ActiveSheet.Shapes.AddShape(msoShapeLineCallout3, vLeft, vtop, vWidth, vHeight).Select
  With Selection.ShapeRange.Fill 'ボックスの色
    .ForeColor.RGB = RGB(255, 204, 204)
  End With
  With Selection.ShapeRange.Line '吹出し先と線
    .ForeColor.SchemeColor = 20
    .BeginArrowheadStyle = msoArrowheadOval
    .EndArrowheadStyle = msoArrowheadOval
  End With
  Selection.Characters.Text = ">"
  With Selection.Font
    .Name = "MS Pゴシック"
    .Size = 8
  End With
End Sub

【40654】Re:吹出しを自動作成した後文字をすぐ入...
発言  ichinose  - 06/7/19(水) 22:06 -

引用なし
パスワード
   ▼あくたいおん さん:
こんばんは。

Sub ふきだし()
  Dim vLeft, vtop, vHeight, vWidth As Long
  With ActiveCell '位置調整
    vLeft = .Left + .Width + 22
    vtop = .Top - 15
    vHeight = 10
    vWidth = 50
  End With
  With ActiveSheet.Shapes.AddShape(msoShapeLineCallout3, vLeft, vtop, vWidth, vHeight)
    .Fill.ForeColor.RGB = RGB(255, 204, 204)
    With .Line
     .ForeColor.SchemeColor = 20
     .BeginArrowheadStyle = msoArrowheadOval
     .EndArrowheadStyle = msoArrowheadOval
     End With
    With .TextFrame.Characters
     .Text = ""
     With .Font
      .Name = "MS Pゴシック"
      .Size = 8
      End With
     End With
    .Select
    SendKeys " {BS}"
    End With
End Sub

上記のようにSendkeysでも使用すれば出来そうですけど・・・、

私ならInputbox等で入力させてから、
その内容をテキストとしてシェイプに代入しますけどね!!
正直、業務ではSendkeysは使ったことがありません。

【40663】Re:吹出しを自動作成した後文字をすぐ入...
お礼  あくたいおん  - 06/7/20(木) 9:56 -

引用なし
パスワード
   ▼ichinose さん:
sendkeyというものを知りませんでした。
思い通りの動きができてうれしいです(^_^)
ありがとうございました!

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