マイクロソフトのパワーポイントを使っています。過去使っていたファイルを修正して、保存しようとしたところ以下のようなエラー表示がポップアップされました。

エラー表示!
プレゼンテーション内に保存できないフォントがあります。
フォント名/Osaka、 Verndana
理由/インストールされていません

質問したい点として
1.ファイルのページが結構あってこのフォントを使っている箇所を探すことが出来ません。システムで効率的に探す機能があれば知りたいです。
2.このフォントのダウンロードできるサイトがあれば知りたいです。
よろしくお願いします。

回答の条件
  • 1人2回まで
  • 登録:2006/09/07 10:21:09
  • 終了:2006/09/14 10:25:26

回答(4件)

id:KairuaAruika No.1

KairuaAruika回答回数6926ベストアンサー獲得回数972006/09/07 10:53:55

ポイント27pt

osakaは

http://osakattf.hp.infoseek.co.jp/

で落とせるかも

id:rkanda

有難うございます。

2006/09/07 12:08:44
id:KairuaAruika No.2

KairuaAruika回答回数6926ベストアンサー獲得回数972006/09/07 10:45:35

ポイント27pt

一度PDFに書き出してみることをお勧めします。

AdobeAcrobatにて,

アドバンスト/ローカルフォントを使用

のチェックを外した状態で,PDFを生成してみて下さい。

PDFを生成する時点で,環境にないフォントの部分は生成不可になり,該当箇所は黒丸で表示されます。

場所がこれで特定されますので,PowerPointに戻って,環境にある,使えるフォントに指定しなおせばOK。

id:rkanda

情報を有難うございます、早速試してみます。

2006/09/07 12:07:54
id:k12u No.3

k12u回答回数80ベストアンサー獲得回数72006/09/07 11:43:06

ポイント26pt

フォントを置換すればすぐ解決します。

http://www.microsoft.com/japan/office/experience/workstyle/t...

Osaka->MS ゴシック

Verdana->Arial

でよろしいかと。

id:rkanda

情報を有難うございます、解決できました。因みに該当する書体フォント箇所を指定表示することは出来ないのでしょうか?ご存知の方がいたら教えてください。

2006/09/07 13:06:43
id:ardarim No.4

ardarim回答回数897ベストアンサー獲得回数1452006/09/08 01:32:57

ポイント10pt

フォントを使っている箇所ですが、ちょっと面倒ですがマクロで例えば次のような感じでできます。


(1)ファイルを開く

(2)[ツール]-[マクロ]-[Visual Basic Editor]

(3)[挿入]-[標準モジュール]

(4)下記マクロを貼り付ける

(5)[ファイル]-[終了してMicrosoft PowerPointに戻る]

(6)[ツール]-[マクロ]-[マクロ]

(7)SearchFontを選び、「実行」


  • フォントを使っている箇所を1つずつ表示する場合
Sub SearchFont()
    
    For Each s In ActivePresentation.Slides
        s.Select
        For Each t In s.Shapes
            If t.HasTextFrame Then
                FontName = t.TextFrame.TextRange.Font.Name
                If FontName = "Osaka" Or FontName = "Verdana" Then
                    t.Select
                    If MsgBox("次へ", vbOKCancel) = vbCancel Then
                        End
                    End If
                End If
            End If
        Next t
    Next s

End Sub

  • 指定したフォントを使っている箇所を一括して赤字にする場合
Sub SearchFont()
    
    For Each s In ActivePresentation.Slides
        s.Select
        For Each t In s.Shapes
            If t.HasTextFrame Then
                FontName = t.TextFrame.TextRange.Font.Name
                If FontName = "Osaka" Or FontName = "Verdana" Then
                    t.Select
                    t.TextFrame.TextRange.Font.Color = RGB(255, 0, 0)
                End If
            End If
        Next t
    Next s

End Sub

太字の部分を変えればいろいろと応用が利きます。

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません