人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

このファイルのフォントをすべて”MSPゴシック(太字なし)”に統一したいのですが、どのようにすればよいでしょうか?
http://www.geocities.jp/dosanko_jigemon/kankoku.ppt

フォントの置換やスライドマスタの変換等やってみたのですが、どうしても”Gulim”とかがしぶとく残っています。
1枠ずつやる気力もなく(・・・というより時間がない)とのことでどなたか助けてください。

ズバリ!方には高ポイントを差し上げます。お願いします!

●質問者: sapporobeer
●カテゴリ:コンピュータ インターネット
✍キーワード:ゴシック スライド ズバリ ファイル フォント
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● HALSPECIAL
●27ポイント

いろいろやったみたいなので、

別の方法として、

こういったプラグインを使うのはどうでしょうか?

http://torasenriwohashiru.seesaa.net/article/143624610.html

◎質問者からの返答

ありがとうございます。ネットカフェからやっていたため、自宅で試してみます。


2 ● chyopper
●27ポイント

VBAで一括変換してはどうでしょうか?

PowerPoint VBA - 全スライド上のテキストのフォントを変更する

http://www.d-consulting.biz/presentation/powerpoint/vba_change_f...

◎質問者からの返答

へぇーそういうこともできるんですねぇ・・・。

ただ、マクロのやり方が悪いのか、ちょっとうまくいきません。


3 ● Mook
●500ポイント ベストアンサー

もともとこのパワーポイントを作成したのが韓国語環境なのが問題のようですね。


マクロでの対応ですが、下記でどうでしょうか。

標準モジュールに下記をコピーし、ReplaceFont を実行してみてください。


一応こちら(VISTA/PowerPoint 2007)では変換できました。

Sub ReplaceFont()
 Dim oSld As Slide
 Dim oShp As Shape
 For Each oSld In Application.ActivePresentation.Slides
 For Each oShp In oSld.Shapes
 changeFont oShp
 Next
 Next
End Sub

Sub changeFont(shp As Shape)
 Dim sShp As Shape
 If shp.Type = msoGroup Then
 For Each sShp In shp.GroupItems
 changeFont sShp
 Next
 End If
 If shp.HasTextFrame = True Then
 shp.TextFrame.TextRange.LanguageID = msoLanguageIDJapanese
 shp.TextFrame.TextRange.Font.Name = "MS Pゴシック"
 shp.TextFrame.TextRange.Font.NameFarEast = "MS Pゴシック"
 shp.TextFrame.TextRange.Font.NameAscii = "MS Pゴシック"
 End If
End Sub

マクロの実行の仕方など、不明点はコメントで対応いたしますので有効に変更ください。

◎質問者からの返答

ありがとうございます!!!!!!

ビンゴです!!!!!!!!!!!

先方にもほめられました!!!!!!!

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ