- ベストアンサー
パワーポイントのマクロ
クライアントから依頼され作業するファイルがあるのですが、全角を全て半角に直す作業に手間取っています、これがマクロとかなにかで一括で出来ればいいと思ってますクライアントからくるファイルにマクロを埋め込みはしたくないです、なにか他の方法知恵があれば、教えてください。 半角全角は数字です、もしオフィス製品(ワード、エクセル、パワーポイントで共通な物が出来ればと思っているのですが。。。
- onoyoko
- お礼率24% (15/62)
- Visual Basic
- 回答数2
- ありがとう数2
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
- ベストアンサー
テキストボックス限定であればVBAで可能です。 しかしパワーポイントに張り付いているExcelの表やグラフなども対象となると難しいですね。 以下のコードは同一フォルダにあるすべてのパワーポイントで、テキストボックスだけを対照に、すべての文字を全角に変換して保存するものです。 新規パワーポイントで[Alt]+[F11]または[ツール]-[マクロ]-[Visual Basic Editor]を押してVBEを起動。 [挿入]-[標準モジュール]で標準モジュールに以下のコードを書く。 保存して終了。 これをクライアントから届いたパワーポイントのファイルが置いてあるフォルダに移動して開く。 [Alt]+[F8]または[ツール]-[マクロ]-[マクロ]でマクロ実行のダイアログを表示させ、[ConvertToWide]を実行。 同じフォルダにあるパワーポイントを次々に開いてテキストボックス内の文字を変換し、保存終了を繰り返してくれます。 Sub ConvartToWide() Dim myPath As String Dim PPTName As String Dim ThisPresentation As Presentation Dim CurrentPPT As Presentation Dim CurrentSlide As Slide Dim CurrentShape As Shape Set ThisPresentation = ActivePresentation myPath = ActivePresentation.Path If Right$(myPath, 1) <> "\" Then myPath = myPath & "\" End If ' フォルダ内のすべてのPPTファイルをループ PPTName = Dir(myPath & "*.ppt") Do Until PPTName = "" If PPTName <> ThisPresentation.Name Then Set CurrentPPT = .Presentations.Open(myPath & PPTName) For Each CurrentSlide In CurrentPPT.Slides For Each CurrentShape In CurrentSlide.Shapes With CurrentShape If .Type = msoTextBox Then .TextFrame.TextRange.Text = StrConv(.TextFrame.TextRange, vbWide) End If End With Next CurrentShape Set CurrentShape = Nothing Next CurrentSlide Set CurrentSlide = Nothing CurrentPPT.Save CurrentPPT.Close Set CurrentPPT = Nothing End If PPTName = Dir() Loop Set ThisPresentation = Nothing End Sub
その他の回答 (1)
- arukamun
- ベストアンサー率35% (842/2394)
全角の数字を半角の数字にするだけでしたら、置換を行えば良いと思います。 [編集]→[置換]で 検索する文字列に 0 置換後の文字列に 0 で 半角と全角を区別する だけをチェックして、[すべて置換]ボタンを押します。 この作業を0、1、2、・・・9と行うだけです。 これであれば、ワード、エクセル、パワーポイントどれでも同じです。 ご確認下さい。
補足
依頼されるファイルが1枚ぐらいだったら上記の方法でもいいと思いますが、毎日50ページ100ページと大量です、アプリケーションまさまざまです、手のかかる作業をプログラミングしたいのです、その方法でなにかいい方法をしりたいのですが。。。
関連するQ&A
- 【(半角数字)】を【(全角数字)】に一括変換するワードマクロはありませ
【(半角数字)】を【(全角数字)】に一括変換するワードマクロはありませんか? 特許翻訳をしています。 文章中の英数字が半角指定されているのですが、例外として段落番号など【】内にある数字は全角指定です。 手作業で全角に変換していますが、該当箇所がとても多くて手間がかかります。 一気に変換できるワードマクロはありませんか? 具体的には、例えば【0046】を【0046】にしたいのです。 【】内の数字は基本的には4桁です。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- パワーポイントのマクロについて
パワーポイントで簡単なマクロ(アニメーションを動かさないで、スライドショーを実行する)を作りました。そしてユーザー設定からツールバーにボタンとして配置しました。 ところが、一度そのパワーポイントを閉じてしまい同じファイルや違うファイルを開くと、そのマクロが無効になってしまいます。 私がお聞きしたいのは、 「一度作ったマクロを次回から開くすべてのパワーポイントファイルで使えるようにすることはできるのか?」 です。 どうかご存じの方いらっしゃいましたら、よろしくお願い申し上げます。
- 締切済み
- オフィス系ソフト
- パワーポイントの置き換えマクロ
パワーポイントのたくさんの単語の文字の置き換えをしたく、自動のマクロ機能で記録したのですが、何度やってもVBAになりません。 どうやったらいいのでしょうか? 同じ用途のマクロをエクセルで作ったのですが、こちらをうまく利用できますか? 業務でいろいろな資料を翻訳ソフトを使って、他国語に翻訳しています。 すべてがうまく翻訳されるわけではなく、辞書登録してもいくつかの単語は毎回同じ言葉に訳されてしまうので、現在は、手作業で置き換え作業しています。 工数がかかってしまうので、マクロ機能で一括置き換えがしたいのです。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- パワーポイントで教えていただいたマクロが2010ではできたのに、200
パワーポイントで教えていただいたマクロが2010ではできたのに、2007でできなくて困っています。 先日こちらで以下の質問をしました。 ----------------------------- スライドごとに1枚の図が入ったスライドが100くらいあります。 図の大きさを同じに揃えたいのですが、オブジェクトの書式設定で一枚ずつサイズを指定して配置も指定していますが、いつになっても終わりません。 ワードのキーマクロのように同じ繰り返しを簡単にできる技はないのでしょうか。 教えてください。 パワーポイントのバージョンは、2003と2010(試用版)でやっています。 ---------------------------------- http://okwave.jp/qa/q5885234.html そして絵の大きさを揃えるマクロを教えていただきました。 とても良かったのですが、2010試用版が使えなくなるので、発売まで待てず2007を買いました。 そしたら2007では、実行しても何も起きなくて困っています。 エラーが起きるわけでもないのに、絵の大きさが変わりません。 2007でも使えるマクロを教えてください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- パワーポイント
富士通のXPのノートパソコンを利用いています。 オフィスは2003なのですが パワーポイントは入ってないのでしょうか? パワーポイントの 2003の更新プログラムも正常にでき 2007もインストールできたのですが すべてのプログラムを見ても プログラムファイルを見ても 見当たらないのですが 何処に入っているのでしょうか? エキセルやワードからもみつかりません。 オフィスも修正インストールもして見ましたが 同じでした。 宜しくお願いします。
- ベストアンサー
- その他(業務ソフトウェア)
- エクセルをマクロを使用してパワーポイントへ
エクセルのいくつかのセルのデータをパワーポイントへマクロを使用して転記したいと考えています。 例> エクセルの A1:名前 B1:ふりがな C1:番号 この3つをパワーポイントの表紙と各スライドのフッターのあたりに転記したい。 条件として パワーポイントファイルはエクセルと同じディレクトリにある。 パワーポイントのページ数は、そP都度変わる。 このため、 パワーポイントファイルを相対パスで指定する。 パワーポイントのページ数を取得する。 表紙にデータを転記する 各スライドにデータを転記する。 こういった作業をエクセルのマクロで実現したいのです。 宜しくお願いします。
- ベストアンサー
- Excel(エクセル)
- パワーポイント2003
テキストボックスに"(ダブルクォーテーション)を半角で打って、打ったデータをコピーしてテキストエディタに貼ると全角に変わってしまいます。 パワーポイントに打った時に半角にならないのです ダブルクォーテーションとシングルクォーテーションはならない? 半角にする方法を教えてください。
- 締切済み
- その他(業務ソフトウェア)
- ワードで選択範囲の半角数字を全角にするマクロ
ワード2007です。選択範囲の半角数字を全角にするマクロ、あるいは選択範囲の全角数字を半角にするマクロを教えてください。エクセルだったら作れたのですが、ワードではうまくいきません。全文に関して変換するのではなく、選択部分だけ変換を一発でして、止まってほしいのです。
- ベストアンサー
- その他MS Office製品
- パワーポイントが欲しい
現在OSがXPのPCを持っていて Microsoft Officeでワードとエクセルのみ入っています。 パワーポイントも欲しいのですが、どのようにしたらパワーポイントを安く導入できますか? Microsoft Office2013を買うのが一番いいのでしょうか? もしかしたらXPに対応してませんか?
- ベストアンサー
- Windows XP
お礼
本当にありがとうございます、一部変更したり手を加えたりして、求めていた物を作成する事が出来ました、上記を応用して、エクセルバージョン、ワードバージョンも作りました。これで手間のかかる作業が一度で終わります。