| |
個人用マクロブックに作ってみました。
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
|
|
よろずや
- 18/6/5(火) 19:13 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
