| |
▼ichinose さん：
>こんにちは。
>私のは試して頂きましたか？
もちろんです！
その後わたしなりに作り直してみました(^_^;
今回
いただいたマクロですが、
すっごくうまくできてます。ほぼ思い通りです！
でも、
なぜこんな動きになっているのかわからない部分があります。
教えていただけるとうれしいのですが...。
> 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でキーボード入力させ、その後閉じてから位置修正していることはよくわかりました。アイデアですね(^_^)
・不思議なのは、Alternativetextに書き込んだ文字が入っていること。
（どこにもAlternativetextの文字が無いのに！）
もうメモる必要が無いのですか?
・上記のDoEventsの際に.Nameが使われていること。
なぜ.Nameなのでしょう？ .Nameは、AutoShape(33)とかのはずで、これは文字をかいてるうちには変化しないはず。
よろしくお願いいたします。
|
|
あくたいおん
- 06/7/27(木) 13:20 -
