次の方法で共有

Visio2010でシェイプシートのCharacterセクションが更新されない場合がある

Anonymous
2013-07-16T04:41:39+00:00

Shape内のテキストのフォントを、リボンのホームタブのフォントのプルダウンリストボックスで変更すると、

シェイプシートのCharacterセクションが更新されますが(例 1)

Shape内のテキストに文字(日本語)を追加した場合、シェイプシートのCharacterセクションが更新されません(例 2)。

例 1:シェイプシートのCharacterセクションが更新される例

   Shape内のテキストボックスに、ABCDE の文字列が入力されている状態(フォントはVerdana)で

     文字列 CDを選択してフォントをMS Pゴシックに変更すると、シェイプシートのCharacterセクションが更新される。

      (Characterセクション内に MS Pゴシックの情報が追加される)。

例 2:シェイプシートのCharacterセクションが更新されない例

   Shape内のテキストボックスに、ABCDE の文字列が入力されている状態(フォントはVerdana)で、

     文字列をABCあDEと変更する("あ"を CとDの間に追加)とシェイプシートのCharacterセクションは変更がない。

      (Characterセクション内に MS Pゴシックの情報が追加されない)。

なおVisio2002では、文字列をABCあDEと変更すると同時に、シェイプシートが更新されおりました。

VBAで、シェイプシートのCharacterセクションを参照し、日本語フォントを抽出するマクロを

Visio2002にて作成していたのですが、上記が原因となりVisio2010では日本語フォントの抽出が

正しくできなくなってしまいました。

(質問1)Visio2010では、例 2 の操作を行った時シェイプシートのCharacterセクションは変更されないのでしょうか?

(質問2)シェイプシートのCharacterセクション以外で、Shape内の使用しているフォントを判断できる方法が御座いますでしょうか?

※なお、PC環境は下記の通りです。

Windows 7 Professional

Microsoft Visio Standard 2010

バージョン:14.0.6129.5000(32ビット)

Microsoft 365 と Office | Visio | その他 | Windows

ロックされた質問。 この質問は、Microsoft サポート コミュニティから移行されました。 役に立つかどうかに投票することはできますが、コメントの追加、質問への返信やフォローはできません。

0 件のコメント コメントはありません

質問作成者が受け入れた回答

Anonymous
2013-07-17T00:20:25+00:00

mfuka さん、こんにちは。

マイクロソフト コミュニティをご利用いただきありがとうございます。

Visio 2010 で、シェイプシートの Character セクションが特定の条件では更新されないということなのですね。

書いていただいた例を参考にして、手元にある Visio 2010 で問題の動作を調べてみた結果、テキスト内の [ABCDE] の文字列を [ABCあDE] に変更後、 Character セクションが更新されない同じ動作になりました。

※ フォントサイズなども更新されない動作でした。

こちらの動作について、情報を探してみましたが、参考になるような情報は見つからなかったです。。

Character セクション以外で Shape 内のフォントを判断する方法については、 [ホーム] タブの [ツール] グループにある [オブジェクト選択ツール] の状態で、それぞれの図面をクリックすることで Shape 内のフォントが確認できるのかな、と思います。

※ 図面を右クリックして開いたメニューからも確認が出来ると思います。

※ こちらの方法くらいしか見つからなかったです。。

おそらく、 Visio 2010 に変更後、この動作が原因で VBA を使って日本語のフォントを抽出するマクロが使用できなくなったということだと思います。

情報が得られるかは解らないのですが、Character セクション以外の方法で、 日本語フォントを抽出する VBA の作成方法を VBA フォーラムにも質問してみてはどうでしょう。

Visual Basic for Application (VBA)

こちらで参考となる情報がコメントできず心苦しいのですが、上記フォーラムも活用してみてくださいね。

この回答は役に立ちましたか?

0 件のコメント コメントはありません

1 件の追加の回答

並べ替え方法: 最も役に立つ
  1. Anonymous
    2013-07-17T02:11:31+00:00

    ご確認頂きありがとうございます。

    VBA フォーラムにも質問してみます。

    この回答は役に立ちましたか?

    0 件のコメント コメントはありません