Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5764 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【49100】オートシェイプの全体表示 たかとも 07/5/23(水) 9:27 質問[未読]
【49105】Re:オートシェイプの全体表示 りん＠通りすがり 07/5/23(水) 10:49 発言[未読]
【49106】Re:オートシェイプの全体表示 たかとも 07/5/23(水) 11:04 質問[未読]
【49107】Re:オートシェイプの全体表示 りん＠通りすがり 07/5/23(水) 11:26 回答[未読]
【49108】Re:オートシェイプの全体表示 たかとも 07/5/23(水) 11:29 お礼[未読]
【49109】Re:オートシェイプの全体表示 たかとも 07/5/23(水) 14:28 質問[未読]
【49110】Re:オートシェイプの全体表示 りん＠通りすがり 07/5/23(水) 14:34 発言[未読]
【49111】Re:オートシェイプの全体表示 たかとも 07/5/23(水) 14:39 質問[未読]
【49113】Re:オートシェイプの全体表示 りん 07/5/23(水) 18:12 発言[未読]
【49115】Re:オートシェイプの全体表示 ichinose 07/5/23(水) 21:34 発言[未読]
【49117】Re:オートシェイプの全体表示 りん 07/5/23(水) 23:22 発言[未読]
【49130】Re:オートシェイプの全体表示 たかとも 07/5/24(木) 14:10 質問[未読]
【49144】Re:オートシェイプの全体表示 ichinose 07/5/24(木) 21:39 発言[未読]
【49152】Re:オートシェイプの全体表示 たかとも 07/5/25(金) 14:22 お礼[未読]
【49100】オートシェイプの全体表示
質問  たかとも  - 07/5/23(水) 9:27 -
引用なし
パスワード
   わからないので教えてください。

マクロを動かした時、オートシェイプ（テキストボックス）に
文字をいれるのですが、オートシェイプが小さいのか、文字が長いのか
で全部表示しきれません。
文字を短くしたり、オートシェイプを大きくは仕様上できないのです。

何か方法はありますでしょうか？
【49105】Re:オートシェイプの全体表示
発言  りん＠通りすがり  - 07/5/23(水) 10:49 -
引用なし
パスワード
   たかとも さん、こんにちわ。

>マクロを動かした時、オートシェイプ（テキストボックス）に
>文字をいれるのですが、オートシェイプが小さいのか、文字が長いのか
>で全部表示しきれません。
折り返しで対応できませんか？
htt　p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=44593;id=excel
【49106】Re:オートシェイプの全体表示
質問  たかとも  - 07/5/23(水) 11:04 -
引用なし
パスワード
   りん＠通りすがり さん

レスありがとうございます。

>折り返しで対応できませんか？
>htt　p://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=44593;id=excel

折り返し対応でも大丈夫です。
すみません。
プロパティの設定でMultiLineプロパティと、WordWrapプロパティって、
テキストボックスを右クリックしてテキストボックスの書式設定でやるのですか？
書式設定だとその項目がなかったので・・・

すみません、教えていただけないでしょうか？
【49107】Re:オートシェイプの全体表示
回答  りん＠通りすがり  - 07/5/23(水) 11:26 -
引用なし
パスワード
   たかとも さん、こんにちわ。

>プロパティの設定でMultiLineプロパティと、WordWrapプロパティって、
>テキストボックスを右クリックしてテキストボックスの書式設定でやるのですか？
シート上のテキストボックスですよね。
右クリック→プロパティで指定できるはずなので試してみてくださいね。
【49108】Re:オートシェイプの全体表示
お礼  たかとも  - 07/5/23(水) 11:29 -
引用なし
パスワード
   りん＠通りすがりさん、ありがとうございます。

>シート上のテキストボックスですよね。
>右クリック→プロパティで指定できるはずなので試してみてくださいね。

レスありがとうございます。
試してみます。

助かりました！
【49109】Re:オートシェイプの全体表示
質問  たかとも  - 07/5/23(水) 14:28 -
引用なし
パスワード
   すみません。続きです。

シート上にあるテキストボックスのプロパティの表示の仕方ですが、
テキストボックスを選択して、右クリックしてもプロパティの項目がありません。

すみません、テキストボックスのプロパティの表示の仕方教えてください。
【49110】Re:オートシェイプの全体表示
発言  りん＠通りすがり  - 07/5/23(水) 14:34 -
引用なし
パスワード
   たかとも さん、こんにちわ。

>シート上にあるテキストボックスのプロパティの表示の仕方ですが、
>テキストボックスを選択して、右クリックしてもプロパティの項目がありません。
テキストボックスを右クリックしたときに、数式バーに

=EMBED("Forms.TextBox.1","")

と表示されていますか？

下に「非表示の項目があります」と書いてませんか？
エクセルのバージョンは何ですか？
【49111】Re:オートシェイプの全体表示
質問  たかとも  - 07/5/23(水) 14:39 -
引用なし
パスワード
   りん＠通りすがり さん、たびたびすみません。

>テキストボックスを右クリックしたときに、数式バーに
>
>=EMBED("Forms.TextBox.1","")
>
>と表示されていますか？
>
>下に「非表示の項目があります」と書いてませんか？
>エクセルのバージョンは何ですか？


数式バーの表示されていないです＞＜。。
エクセルのバージョンは2003なんですが・・・
【49113】Re:オートシェイプの全体表示
発言  りん E-MAIL  - 07/5/23(水) 18:12 -
引用なし
パスワード
   たかとも さん、こんばんわ。

>>テキストボックスを右クリックしたときに、数式バーに
>>=EMBED("Forms.TextBox.1","")
>>と表示されていますか？
>数式バーの表示されていないです＞＜。。
シートに保護がかかってませんか？


>エクセルのバージョンは2003なんですが・・・
同じですねえ。
【49115】Re:オートシェイプの全体表示
発言  ichinose  - 07/5/23(水) 21:34 -
引用なし
パスワード
   たかとも さん、りん さん
こんばんは。
>
>>>テキストボックスを右クリックしたときに、数式バーに
>>>=EMBED("Forms.TextBox.1","")
>>>と表示されていますか？
>>数式バーの表示されていないです＞＜。。

これって、コマンドバー「コントロールツールボックス」にある
テキストボックスではなく、コマンドバー「図形描画」にある
テキストボックスのことですか？

だとしたら、対象のテキストボックスをクリックしたら、
メッセージボックス等で全体の文字列を表示する

という仕様にでもしたらどうでしょうか？
【49117】Re:オートシェイプの全体表示
発言  りん E-MAIL  - 07/5/23(水) 23:22 -
引用なし
パスワード
   こんばんわ。

最初から読み直してみたら、オートシェイプのと書いてあるので、的外れな事言ってましたね。すみません。

>>>>テキストボックスを右クリックしたときに、数式バーに
>>>>=EMBED("Forms.TextBox.1","")
>>>>と表示されていますか？
>>>数式バーの表示されていないです＞＜。。
>
>これって、コマンドバー「コントロールツールボックス」にある
>テキストボックスではなく、コマンドバー「図形描画」にある
>テキストボックスのことですか？
このテキストボックス（や四角形に文字を追加する）ならば勝手に折り返しがはいるはずですよね。
【49130】Re:オートシェイプの全体表示
質問  たかとも  - 07/5/24(木) 14:10 -
引用なし
パスワード
   りんさん、ichinoseさん返信ありがとうございます。

遅くなり申し訳ありません。

コマンドバー「図形描画」にあるテキストボックスです。
しっかりと言わなくてすみません。

よくよくみたら横幅縦幅ともに小さいためすべて
表示しきれてませんでした。
オートシェイプはセルみたいに縮小して全体を表示する
ということはできないですよね？

すみません、よろしくお願いします。
【49144】Re:オートシェイプの全体表示
発言  ichinose  - 07/5/24(木) 21:39 -
引用なし
パスワード
   こんばんは。


>よくよくみたら横幅縦幅ともに小さいためすべて
>表示しきれてませんでした。
>オートシェイプはセルみたいに縮小して全体を表示する
>ということはできないですよね？

>>対象のテキストボックスをクリックしたら、
>>メッセージボックス等で全体の文字列を表示する

なら簡単ですが・・・。

一例です。新規ブックの標準モジュールに
'===================================================================
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でテキストが表示されます。
【49152】Re:オートシェイプの全体表示
お礼  たかとも  - 07/5/25(金) 14:22 -
引用なし
パスワード
   ichinose さん、レスありがとうございます。

遅くなり申し訳ありません。
>
>実行すると、アクティブセルにテキストボックスを作成します。
>テキストとして「あ」を50個つなげました。
>
>作成したテキストボックスをクリックしてください。
>
>Msgboxでテキストが表示されます。

コードありがとうございます！
これを元に修正し、使用したいと思います！
ありがとうございました！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
5764 / 13665 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free