|
▼ichinose さん:
ご回答ありがとうございます。
提示して頂いたコードを使ってやり直してみました。しかし結果は変わりませんでした。
なんでーと思いつつ、新規ブックに新しくフォームをつくり直してもやってみましたが
結果は変わらずでした。まさかとは思いながら"MS 明朝"のMSと明朝の間のスペース
を全角から半角に変えた処作動するようになりました。(私が参考にしていた本にはMSとスペースは全角でと書いてあったのですが....)
>>Private Sub UserForm_Initialize()
>>
> on error resume next
>> Dim X as Variant
> dim wk as string
>> For Each X In Me.Controls
>'Xはコントロールですから、このまま使いましょう
> X.Font.Name="MS 明朝" <<"MS 明朝" これで動きました。
wk = X.Caption
> X.Caption = ""
> X.Caption = wk
> wk = X.Text
> X.Text = ""
> X.Text = wk
>> Next
>>End Sub
話は変わりますが、これをやりたかった理由は私がフォームのデザインを手作業でしている時に、イチローの打率より高い確率でプロパティウインドウのFontの部分をクリックす
るとPCが固まってしまうという現象があった為です。(しまいには手をあわせながら、たのむーとクリックをする始末でした...)みなさんもこんな現象ってなりますか?
|
|