| このページについて | ||||||||||||||||||||||||||
|
このページは、mura's home の AutoCAD掲示板 で、当方の発言（書込み）がある以下の掲示板の内容です。
タイトルおよび質問内容は上記より引用しています。 引用した質問内容は、バックカラーが となっています。 当方の発言は、バックカラーが となっています。 その他の著作権者の掲載許可を得ていない発言内容は削除（リンクを除く）しています。 また、当方では、削除部分の正当な著作権保持者を判断出来ませんので、 ご連絡を頂いても、復活させることは出来ません。ご了承下さい。
|
||||||||||||||||||||||||||
いつもお世話になっております
VBAで文字スタイルのフォントを複数の図面に対していっきに変更したいと思い、考えてみたのですが「型が一致しません」とエラーが出て、実行できません。
ナゼでしょうか？…T□T
Sub
TextStyle()
Dim acDoc As AcadDocument
Dim acTextStyle As
AcadTextStyle
For Each acTextStyle In acDoc.ModelSpace
If
acTextStyle Is "newstyle" Then
acTextStyle.fontFile =
"romans.shx"
acTextStyle.BigFontFile = "bigfont.shx"
End
If
Next
End Sub
お分かりになる方、宜しくお願い致します。
以下で如何でしょう？
ただし、"ThisDrawing.TextStyles"
には、
文字スタイル以外のシェイプのデータなども含まれます。
ご注意下さい。
Sub TextStylesChange()
Dim TextCollection As AcadTextStyles
Dim textStyle As AcadTextStyle
Set TextCollection = ThisDrawing.TextStyles
For Each textStyle In TextCollection
If textStyle.Name = "newstyle" Then
textStyle.fontFile = "romans.shx"
textStyle.BigFontFile = "bigfont.shx"
Exit For
End If
Next
End Sub
|