Excel ファイルをアイコンとして PowerPoint に挿入する方法: ステップバイステップ ガイド

ステップ 1: Excel ファイルを挿入する手動の方法

Excel ファイルを PowerPoint プレゼンテーションにアイコンとして手動で挿入するには、次の手順に従います。

1. PowerPoint を開きます。
2. Excel ファイルを挿入するスライドに移動します。
3. リボンから[ 挿入] タブを選択し、 [テキスト] グループ内の [オブジェクト]オプションを選択します。
4. [オブジェクトの挿入] ダイアログ ボックスで、 [ファイルから作成] を選択します。[参照] をクリックして Excel ファイルを見つけます。
5. 「アイコンとして表示」 というオプションをチェックします。
6. 最後に、 「OK」 をクリックしてプロセスを完了します。

プロのヒント: プレゼンテーション中に混乱を避けるために、常に正しいファイルが選択されていることを確認してください。

ステップ 2: Excel ファイルの埋め込みを VBA で自動化する

自動化されたソリューションを希望するユーザーは、次の手順に従って、VBA スクリプトを使用して Excel ファイルを埋め込みます。

1. Microsoft Excel を開きます。
2. ALT + を押して F11 VBA エディターを起動します。
3. 上部のメニューから 「挿入」 を選択し、 「モジュール」 をクリックします。
4. 次の VBA コードをコピーしてモジュールに貼り付けます。

Sub EmbedExcelInPowerPoint() Dim pptApp As Object Dim pptPres As Object Dim pptSlide As Object Dim pptShape As Object Dim excelFilePath As String ' Set the file path of the Excel file excelFilePath = "C:\path\to\your\excel_file.xlsx" ' Create a new PowerPoint application Set pptApp = CreateObject("PowerPoint. Application") pptApp. Visible = True ' Create a new Presentation Set pptPres = pptApp. Presentations. Add ' Add a slide Set pptSlide = pptPres. Slides. Add(1, 1) ' Embed the Excel file as an icon Set pptShape = pptSlide. Shapes. AddOLEObject(Left:=10, Top:=10, Width:=400, Height:=300, _ ClassName:="Excel. Sheet", FileName:=excelFilePath, DisplayAsIcon:=True) ' Rename the icon pptShape. OLEFormat. Object. IconLabel = "My Excel File" End Sub

5. excelFilePath 変数を更新して、Excel ファイルの場所を指定します。
6. を押してマクロを実行します F5 。

プロのヒント: スクリプト作成中にデータが失われないように、作業内容を頻繁に保存してください。

PowerPoint から Excel ファイルを直接編集できますか?

埋め込まれた Excel ファイルにはサイズ制限がありますか?