Excel VBA質問箱 IV

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

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


40804 / 76732 ←次へ | 前へ→

【41019】Re:吹出しの先っぽの位置を変えずに自動サイズ調整してほしい
発言  ichinose  - 06/7/27(木) 19:48 -

引用なし
パスワード
   ▼あくたいおん さん:
こんばんは。

>でも、
>なぜこんな動きになっているのかわからない部分があります。
>教えていただけるとうれしいのですが...。
>
>>    On Error Resume Next
>>    Do While Selection.Name = .Name
>>     If Err.Number <> 0 Then Exit Do
>>     DoEvents
>>     'Sleep 100
>>'     これのコメントもはずして試してみてください
>>     Loop
>>    On Error GoTo 0
>>    .TextFrame.AutoSize = True
>>    DoEvents
>
>DoEventsでキーボード入力させ、その後閉じてから位置修正していることはよくわかりました。アイデアですね(^_^)
Doeventsで入力させ というより、これで監視しています。

>
>
>・不思議なのは、Alternativetextに書き込んだ文字が入っていること。
>(どこにもAlternativetextの文字が無いのに!)
これは、仕様みたいですよ!!手動でふき出しを作成し、文字を入力しても
Alternativetextには、文字が入っています。
気になるなら 最後に

.AlternativeText = ""

なんて入れとけば良いです。

> もうメモる必要が無いのですか?
私の投稿したコードでは要りません!!


>・上記のDoEventsの際に.Nameが使われていること。
> なぜ.Nameなのでしょう? .Nameは、AutoShape(33)とかのはずで、これは文字をかいてるうちには変化しないはず。
ん?疑問に思っていることがよくわかりませんが・・・。

オートシェイプの名前はふき出しを作成するたびにユニークな名前が付けられます。
固定の名前などコードに記述するわけにはいきません。
いや、仮に固定の名前だとしても"kotei1"なんて、
書くべきではありません。
固定名が仕様で変わったら、コードを変更しなければなりませんので・・・。

コードの意味はおわかりですか?

作成したオートシェイプをSendkeysを記述している上のほうで

.Select しています。


作成したオートシェイプの名前(.Name)と
選択されているオブジェクト(Selection)の名前(Selection.Name)が
同じ間は待機しているというコードです。

例えば、文字入力が終了し、適当なセルを選択すれば、
Selectionは、選択したセルを取得します。
すると、オートシェイプの名前と選択したオブジェクト(Selection)の名前が違うので
ループ処理から抜ける という仕組みです
(実際には、セル(Range)にNameというプロパティがないので
エラートラップによってループを抜けていますが・・・)。

0 hits

【40680】吹出しの先っぽの位置を変えずに自動サイズ調整してほしい あくたいおん 06/7/20(木) 13:01 質問
【40708】Re:吹出しの先っぽの位置を変えずに自動サ... ichinose 06/7/20(木) 20:16 発言
【40709】Re:吹出しの先っぽの位置を変えずに自動サ... bykin 06/7/20(木) 21:13 発言
【40731】Re:吹出しの先っぽの位置を変えずに自動サ... あくたいおん 06/7/21(金) 16:22 発言
【40727】Re:吹出しの先っぽの位置を変えずに自動サ... あくたいおん 06/7/21(金) 15:43 発言
【40734】Re:吹出しの先っぽの位置を変えずに自動サ... ichinose 06/7/21(金) 17:31 発言
【40740】Re:吹出しの先っぽの位置を変えずに自動サ... bykin 06/7/21(金) 23:36 回答
【40934】Re:吹出しの先っぽの位置を変えずに自動サ... あくたいおん 06/7/26(水) 15:35 質問
【40938】Re:吹出しの先っぽの位置を変えずに自動サ... ichinose 06/7/26(水) 16:11 発言
【40989】Re:吹出しの先っぽの位置を変えずに自動サ... あくたいおん 06/7/27(木) 13:20 質問
【41019】Re:吹出しの先っぽの位置を変えずに自動サ... ichinose 06/7/27(木) 19:48 発言
【41026】Re:吹出しの先っぽの位置を変えずに自動サ... bykin 06/7/27(木) 22:11 発言

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