Excel VBA質問箱 IV

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

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


41163 / 76736 ←次へ | 前へ→

【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は使ったことがありません。

0 hits

【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 お礼

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