人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

excel2003で質問なのですが、シートのセルをドラッグして選択した位置にその大きさのテキストボックスを貼り付けるマクロを作りたいのですが、探したのですが、探しきれません。
参照でもいいので教えてください

●質問者: shotomo
●カテゴリ:コンピュータ
✍キーワード:セル テキスト ドラッグ ボックス マクロ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● koriki-kozou
●100ポイント ベストアンサー

セルの幅と高さは取得できるから、それを基準に簡単なものを作ってみた

・罫線の幅の問題があるので位置と大きさについては微調整が必要かもしれない

・縦書きテキストボックスならば msoTextOrientationVerticalFarEast に変えればいい

・Selection.Characters.Text 以降の行は本題とはあまり関係ないけどマクロ記録のときに出来るものなのでそのままにしてある

Sub Macro1()
 Dim x, y As Long: '基点座標
 Dim w, h As Long: '幅と高さ
 
 If Selection.Column = 1 Then
 x = 0
 Else
 x = Range(Cells(1, 1), Cells(1, Selection.Column - 1)).Width
 End If
 If Selection.Row = 1 Then
 y = 0
 Else
 y = Range(Cells(1, 1), Cells(Selection.Row - 1, 1)).Height
 End If
 w = Selection.Width
 h = Selection.Height

 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, x, y, w, h).Select

 Selection.Characters.Text = "aaaa"
 With Selection.Font
 .Name = "MS Pゴシック"
 .FontStyle = "標準"
 .Size = 11
 .Strikethrough = False
 .Superscript = False
 .Subscript = False
 .OutlineFont = False
 .Shadow = False
 .Underline = xlUnderlineStyleNone
 .ColorIndex = xlAutomatic
 End With
End Sub
◎質問者からの返答

完璧です。本当にありがとうございました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ