| |
こんばんは。
>よくよくみたら横幅縦幅ともに小さいためすべて
>表示しきれてませんでした。
>オートシェイプはセルみたいに縮小して全体を表示する
>ということはできないですよね？
>>対象のテキストボックスをクリックしたら、
>>メッセージボックス等で全体の文字列を表示する
なら簡単ですが・・・。
一例です。新規ブックの標準モジュールに
'===================================================================
Option Explicit
Sub テキストボックスのサンプル作成()
Dim txtshp As Shape
With ActiveCell
Set txtshp = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, .Width, .Height)
With txtshp
.TextFrame.Characters.Text = String(50, "あ")
.OnAction = "DispText"
End With
End With
End Sub
'===================================================================
Sub DispText()
Dim shpnm As String
If TypeName(Application.Caller) = "String" Then
shpnm = Application.Caller
With ActiveSheet.Shapes(shpnm)
MsgBox .TextFrame.Characters.Text
End With
End If
End Sub
として、「テキストボックスのサンプル作成」を実行してみて下さい。
実行すると、アクティブセルにテキストボックスを作成します。
テキストとして「あ」を50個つなげました。
作成したテキストボックスをクリックしてください。
Msgboxでテキストが表示されます。
|
|
ichinose
- 07/5/24(木) 21:39 -
