Excel VBA質問箱 IV

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

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


41183 / 76732 ←次へ | 前へ→

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

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