powerpoint-vba

    0

    1答えて

    PowerPointプレゼンテーションとしてレポートを自動的に生成しようとしています。現在うまく機能していない機能は、テキストが図形の境界をオーバーフローするときに発生するPowerPointの自動テキスト自動フィッティングです。 テキストが図形(デフォルト)に適合するように図形が設定されている場合、図形内のすべてのテキストのフォントサイズは、テキストが追加されると自動的に縮小されます。この動作は

    0

    1答えて

    次の問題: VBAでテーブルとしてtblを宣言します。私はPowerPointでいくつかのテーブルを表示したい。 セルのテキストが長すぎる場合、細胞は大きな取得し、彼らがスライド限界を越えて行きます。私はそれを避けたい。テキストのサイズを変更したいだけです。つまり、セル内に収まるように、テキストが小さくなるようにしてください。つまり、セルテーブルのサイズを変更しないでください。 どうすればよいです

    0

    1答えて

    私がしたいのは、ファイル名が既に存在しているかどうかを確認して自分の変更を行うことです。私はいくつかの方法を試みたが、誰も仕事をしなかった!! 解決策を見つけてもらえますか? これは私が3つの異なる方法で書いたものです: Private Sub CommandButton21_Click() Dim lRetVal As Long Dim ObjFso As Object Dim Check

    0

    1答えて

    最初のスライドにある3つのTextBoxを削除します。私はこのコードを書いたが、うまくいきません!! これは私のコードです: Sub deleteTextBox() Dim osld As Slide Dim oShp As Shape Dim oShp1 As Shape Dim oShp2 As Shape Set osld = ActivePresentation.Slides(1

    0

    1答えて

    質問:リセットボタンが当たったときにスライドが元の状態に戻るように、PowerPointスライドをVBAに保存するにはどうすればよいですか? Public default_state As Slide Sub abc() default_state = ActivePresentation.Slides(1) ... wonderful code ... End Sub Sub

    1

    1答えて

    ファイルパス(ファイル名の最初の単語である「プロジェクト名」)を追跡するグローバル辞書オブジェクトを設定しました。このプログラムの仕組みは、ユーザーがファイルダイアログボックスを開いてファイルをリストボックスに追加できるフォームが開きます。これが完了したら、辞書に名前とパスを追加する必要があります。 プライマリコード: Public project_dict As Scripting.Dictio

    0

    1答えて

    私のプレゼンテーションのすべてのビデオを検索し、各ビデオの拡張子を変更しようとしています。 XXXX.mp4からXXXX.wmvに変更し、その逆が、私は正規表現の部分を取得するたびに、私は「pptShape.LinkFormat.SourceFullName」 Sub Test() Dim pptSlide As Slide Dim pptShape As Shape

    0

    1答えて

    タスク:テキストを含むスライドを含むPowerPointファイルがあります。テキストにはコードワードが含まれており、ハイパーリンクで置き換えます。今私はこれを達成するために以下のコードを使用しています。どのような作品 For Each sld In prt.Slides For Each shp In sld.Shapes If shp.HasTextFrame Then