Excel VBA質問箱 IV

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

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


146 / 74462 ←次へ | 前へ→

【79959】Re:クリックした場所にテキストボックスを貼り付け
回答  よろずや  - 18/6/5(火) 19:13 -

引用なし
パスワード
   個人用マクロブックに作ってみました。
ThisWorkbook に以下を。
Option Explicit
Private Sub Workbook_Open()
  With Application.CommandBars("Cell").Controls.Add _
      (Type:=msoControlButton, ID:=2950, Temporary:=True)
    .Caption = "テキストボックスの貼り付け"
    .FaceId = 3143
    .OnAction = "テキストボックスの貼り付け"
  End With
End Sub
標準モジュールに以下を。
Option Explicit
Sub テキストボックスの貼り付け()
  With ActiveWindow.RangeSelection
    ActiveSheet.Shapes.AddTextbox _ 
        (Orientation:=msoTextOrientationHorizontal _
        , Left:=.Left, Top:=.Top, Width:=.Width _
        , Height:=.Height).Select
  End With
  With Selection.ShapeRange(1).TextFrame2
    .MarginTop = 0
    .MarginBottom = 0
    .MarginRight = 0
    .MarginLeft = 0
    .VerticalAnchor = msoAnchorMiddle
    .HorizontalAnchor = msoAnchorCenter
  End With
End Sub

42 hits

【79955】クリックした場所にテキストボックスを貼り付け hy 18/6/5(火) 8:22 発言[未読]
【79959】Re:クリックした場所にテキストボックスを... よろずや 18/6/5(火) 19:13 回答[未読]

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