vba編程怎麼導入ppt

Ⅰ 如何用vba做ppt

• 首先，新建一個PPT文檔，並復制這段代碼。點擊「開發工具」→Visual Basic或查看代碼

  Sub一鍵EMF()

  ActiveWindow.View.PasteSpecial (ppPasteEnhancedMetafile)

  ActiveWindow.Selection.ShapeRange.Ungroup.Ungroup.Select

  ActiveWindow.Selection.ShapeRange(msoAutoShape).Delete

  ActiveWindow.Selection.ShapeRange.Regroup

  End Sub

  請點擊輸告者納入圖片描述

• 如果沒有開發工具選項卡，請點擊文件→選項→自定義功能區→主嫌爛選項卡→勾選「開發工具」→確定。然後根據第一步繼續。如果已經有開發工具選項卡，跳過此步。

• 進入VBA界面後，點擊插入→模塊→在新建的空白區域按Ctrl+V粘貼復制好的代碼→關閉窗口，返回PPT界面。

  

• 我們也可以把宏放到快速訪問工具欄中，方法是：文件→選項→「從下列位置選擇命令」下面選擇「宏」→將一鍵EMF添加到對話框右側的快速訪問工具欄里。此時宏就出現在了快速訪問工具欄上。復制素材後點擊此按鈕，就做到了一鍵導入。經常從AI往PPT導素材的朋友，不妨試試。

  PS：

  1.建議將做好的宏處理文檔單獨保存為pptm格式，使用時打開導入素材，然後把處理後的素材再復制到需要的ppt里，此pptm只作為中轉。

  2.使用一鍵前，請注意先復制元素，否則VBA會報錯。

  3.代碼在PPT2010、2013中測試無誤。

  請點擊輸入圖片描述襪沒

Ⅱ vba怎麼把Excel數據拷貝到ppt

幫寫實例
Excel數據拷貝到ppt

Ⅲ 各位請問一下，要實現ppt引用excel的數據VBA在ppt中應用的相關教程

你好：
很簡單，在PPT中，菜單「插入」---「對象」---選擇「由文件創建」---「瀏覽」---選擇你要的EXCEL表格---「確定」，這兄衡拍樣PPT中羨羨的表格和源攔逗表格就是同步的。VBA我也在學，可以一起學習！

Ⅳ 100分求解！求VBA代碼，在EXCEL里用VBA自動將EXCEL數據復制到PPT中

你提到的要求以前我也遇到過，研究過這樣的VBA代碼。
但最終沒有完全實現，因為Excel的sheet頁面區域很大，而ppt的單頁很有限，即使按照sheet的列印頁對應ppt的單頁也難實現。excel的頁面布局也很難復制到ppt中保證不變形。
但我找到了另外一個方法，可以每個sheet變成一張圖片對應ppt中的每磨和一個頁。這樣VBA可以實現，但是缺點是在PPT中的內容是圖片，文字等內容不可編輯，並且sheet頁面很大時ppt的圖片顯示相當內容很小。
不知道導出圖片放到PPT中這樣的實現方案能否滿足你的和游碧要喚舉求，如果可以的話，我可以提供VBA代碼幫助。

Ⅳ 用VBA（宏）如何實現把EXCEL表的部分數據復制粘貼到PPT上

不需要裂跡用到肆埋並PPT中的宏
通過VBA打開或創建相關程序液搭和文檔，然後執行操作就可
497983161

Ⅵ 在PPT頁面中，怎麼用VBA插入一個PPT附件，求大神指導

使用VBA 操作PPT是比較少見慶早芹的，工作中譽畢也會有將不同PPT文件合並為同一文件，網上查到的都是使用軟體或者使用重用PPT功能, 但是如果文件超多，還是比較麻煩，可以使用VBA  一步就實現這個功能，完成後，可以一下處理成千上萬份PPT（有點誇張，時間也會長，但是還是省事）

1. 新建兩個PPT文件，一個名為Test文件，另一個名為Sumppt,  都另存為TEST.pptm 文件（啟動宏的PPT）

2. →ALT+F11，點插入模塊，將下此文末的睜讓代碼拷入到所插入模塊中後保存

然後將多個PPT放入到跟SumPPT相同文件夾下的位置

3  開始操作：打開SumPPT→ALT+F11點一下 F5 鍵，出現下面的，然後點「運行」即可

以上內容來自網路文庫

Ⅶ 用VBA（宏）如何實現把EXCEL表的部分數據復制粘貼到PPT上

對於復制到ppt中，這個可以的（2004年老外已經解決了這個問題神衫神），
對於第一個問題，復制圖到PPT中，這個除非是選擇性粘貼成圖片格式，不然保持數據復制過去會把整個游虧工作薄復制過去（這個老外在2004年左右已經編寫了塌衡好幾個程序），當然有另一種方法，就是在PPT中做好圖，再將相應的數據用VBA復制過去
對於自動調節PPT中的標題，這個你可以去看看PPT VBA幫助裡面有

Ⅷ 請教VBA 如何操作PowerPoint文件

如果對來每一張幻燈片，做相同的源操作，你可以用Office軟體提供的＂錄制宏＂的方法：
在Powerpoint的菜單里，點[工具] -- [宏] -- [錄制新宏]，[確定]，
然後，你對PPT的第1頁做修改標題和正文字體的操作，再對第2頁做修改標題和正文字體的操作。
完了以後，點[工具] -- [宏] -- [停止錄制]，[確定]。
再用菜單，點[工具] -- [宏] -- [宏]，選中那個宏，點[編輯]，就可以看到代碼了。
如果有EXCEL VBA基礎，那麼仔細分析，可以看得懂。

Ⅸ 在PPT中插入的VBA程序需要什麼特殊公式么，為什麼不能用

1、運行PowerPoint2003，單擊「文件」-「保存」命令，彈出「另存為」對話框，文件名設為「測驗」，單擊「保存」命令。
2、單擊「插入」-「文本框」-「水平」命令，這時滑鼠變成「1」字型，在編輯區內單擊滑鼠左鍵拖動滑鼠拉出一個方框，在框內輸入第一題的題目「1.人造地球衛星的軌道半徑越大，則」。
3、下面我們來製作選項。單擊「視圖」-「工具欄」-「控制項工具箱」命令，彈出「控制項工具箱」，單擊「控制項工具箱」上的「選項按鈕」控制項，滑鼠變成十物穗歷字型，按下滑鼠左鍵拖動滑鼠拉出一個方框。單擊「控制項工具箱」上的「屬性」命令，彈出「屬性」對話框，把「名稱」改為「ti1」，把「caption」改為「A.速度越小，周期越小」，其它設為默認。
圖2
其餘的三個選項的名稱分別為「ti2」、「ti3」、「ti4」，「caption」分別為「B.速度族耐越小，周期越大」、「C.速度越大，周期越小」、「D.速度越大，周期越大」。
4、「下一題」按鈕的製作。單擊「控制項工具箱」中「命令按鈕」控制項，這時滑鼠變成十字型，如前在編輯區內拖拉出一個方框，松開滑鼠方框會變成一個按鈕。選中它，單擊滑鼠右鍵，在彈出的快捷菜單中選擇「屬性」命令，把「命令按鈕」屬性中的「caption」設為「下一題」。
這樣，第一題的界面就製作完成了。第二題我們可以按照第2-4步做出來，只是要把題目、各個選項值換一下，另外需要添加一個文本框命令，其名稱設為「sum」，命令按鈕的名稱改為「得分」。
三、添加代碼
1、單擊「控制項工具箱」上「查看代碼」控制項，彈出「Microsoft
visual
basic」編輯器，單擊「插入」-「模塊」命令，彈出「模塊」編輯窗口，在「模塊」編輯窗口輸入「public
fen(2)
as
integer」。
2、選中第一題中「下一題」按鈕，單擊「控制項工具箱」上「查看代碼」控制項，彈出「Microsoft
visual
basic」編輯器，罩搜在「Private
Sub
CommandButton1_Click()」和「End
Sub」之間輸入
If
ti2.Value
=
True
Then
fen(0)
=
2
Else
fen(0)
=
0
End
If
With
SlideShowWindows(1).View
.GotoSlide
(2)
End
With
3、選中最後一題中「得分「按鈕，單擊「控制項工具箱」上「查看代碼」控制項，彈出「Microsoft
visual
basic」編輯器，在「Private
Sub
CommandButton1_Click()」和「End
Sub」之間輸入
If
ti3.Value
=
True
Then
fen(1)
=
2
Else
fen(1)
=
0
End
If
Dim
i,
s
s
=
0
For
i
=
0
To
2
s
=
s
+
fen(i)
Next
sum
=
s
好了，退出「Microsoft
visual
basic」編輯器，按F5試一下效果吧，怎麼樣，是不是和原來設計的一樣呢。

Ⅹ 如何使用VBA調用EXCEL裡面的圖片和數據生成PPT裡面的圖片和數據

本次案例來自網友提問:需要從600個Excel文件中導出每個文件中的2個圖片，之前由於時間原因，回復比較簡單沒有給出具體實現方法，今天花時間整理寫成圖文，希望小夥伴們都可以學會。
一、 數據模擬
為了更加真實的還原提問者遇到的問題，我們需要准備600個且都包含有2個圖片的Excel文件。一兩個文件我們可以手動新建就可以了，這可是600個文件吶！
別擔心，既然我們是用VBA來解決問題，解決這種事情重復機械的勞動，當然不是什麼難事。圖片我們用以下兩個代替，放到當前文件目錄下，分別命名為test1.png和test2.png，模擬數據時將test1.png插入到第一個表,test2.png插入到第二個工作表。
test1.png
test2.png
分步操作過程:
第一步:新建一個Excel文件，將它另存為.xlsm格式。
啟用宏工作簿
第二步:打開新建好的.xlsm文件，按快捷鍵ALT+F11進入VBE界面。
進入VBE界面
第三步:在VBE工程種插入一個模塊。
插入模塊
第四步:在剛剛新建的模塊中粘貼以下代碼。
Sub 生成600個含圖片的Excel文件()
'關閉刷新，防止屏幕抖動
Application.ScreenUpdating = False
'定義變數i
Dim i As Integer
'定義i從1循環到600
For i = 1 To 600
'新增一個工作簿
Workbooks.Add
'往工作簿的第一個工作表中插入圖片test1.png
ActiveWorkbook.Sheets(1).Pictures.Insert(ThisWorkbook.Path & "\test1.png").Select
'往工作簿的第二個工作表中插入圖片test2.png
ActiveWorkbook.Sheets(2).Pictures.Insert(ThisWorkbook.Path & "\test2.png").Select
'將工作簿存儲到當前路徑下
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & i & ".xlsx"
'關閉工作簿
ActiveWorkbook.Close
'繼續循環新建其他工作簿
Next
'恢復屏幕刷新
Application.ScreenUpdating = True
'處理完成給出提示
MsgBox "600個含圖片的Excel文件生成完成！", vbInformation, "提示信息"
End Sub
第五步:執行VBA代碼，生成我們需要的600個Excel文件。
執行VBA代碼
連貫操作演示:
操作演示
二、 圖片導出
600個案例文件已經准備好了，接下來就是導出文件中的圖片。
解決思路:
1. 一個個的找出當前目錄下的所有Excel文件。
2. 打開找到的Excel文件。
3. 一個個的找出Excel文件中的工作表。
4. 找出工作表中的所有圖片對象。
5. 把找到的每一個圖片導出到當前目錄下。
如果文件不多的情況下，按上面的思路手動操作導出也是可以的，其實通過VBA來解決問題也是要先把復雜問題進行簡單化，一步步進行分解問題，最終形成完整解決方案。VBA代碼使用方式在上面數據准備過程中已經有詳細描述了，本次我們直接來運行下代碼，實現導出文件中的圖片。
Sub 導出當前路徑下工作簿中的圖片()
Dim wk$ '定義為工作簿文件
Dim i As Integer '定義工作簿中的工作表數量
Dim ii As Integer '定義為工作表中的對象個數
'關閉刷新，防止抖動
Application.ScreenUpdating = False
'遍歷第一個工作簿文件
wk = Dir(ThisWorkbook.Path & "\*.xlsx")
'遍歷到的文件名不等於空的情況下
Do While wk <> ""
'如果文件名稱和當前的名稱是不一樣的。
If wk <> ThisWorkbook.Name Then
'打開遍歷到的工作簿
Workbooks.Open (ThisWorkbook.Path & "\" & wk)
'對打開的工作簿文件進行以下操作
With ActiveWorkbook
'循環出工作簿中的每一個工作表
For i = 1 To .Sheets.Count
'循環出工作表中的每一個對象shape
For ii = 1 To .Sheets(i).Shapes.Count
'臨時變數，統計shape的個數
k = k + 1
'復制shape對象
.Sheets(i).Shapes(ii).Copy
'創建一個圖表對象，寬高與與對象保持一致
With .Sheets(i).ChartObjects.Add(0, 0, .Sheets(i).Shapes(ii).Width, .Sheets(i).Shapes(ii).Height).Chart
'把圖片插入進去
.Paste
'通過圖表對象的導出方法，把圖片導出到當前目錄下
.Export ThisWorkbook.Path & "\" & wk & "_" & k & ".png"
'刪除圖表
.Parent.Delete
End With
Next
Next
'關閉打開的工作簿
.Close False
End With
End If
'繼續遍歷下一個工作簿
wk = Dir
Loop
'開啟屏幕刷新
Application.ScreenUpdating = True
End Sub
圖片導出演示