|
▼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)とかのはずで、これは文字をかいてるうちには変化しないはず。
よろしくお願いいたします。
|
|