powerpoint-vba

    1熱度

    1回答

    它是來自柏林(德國 - 所以請原諒我的錯英語)的馬丁... 我想在使用VBA的PPT中編輯EMF粘貼。的EMF糊劑是Excel圖表和我用 ActiveWindow.Selection.SlideRange.Shapes.PasteSpecial數據類型:= 3(增強型圖元) 沒有VBA很容易:只要右擊圖像和「取消組合」(2×) 。 在VBA中我嘗試了以下內容:1。 選擇正確的形狀(作品),然後 A

    1熱度

    1回答

    我有一個Access中的VBA程序能夠寫入已存在的PPT中的形狀。它還會製作幻燈片副本並插入/粘貼它們。 但是,當我寫入形狀時,形狀會改變大小 - 不保持其原始形狀。假設這個形狀可以包含5行,如果這是所有正在寫入的行,它就歸結爲一行。 感謝您的幫助

    0熱度

    2回答

    我有一個用於設置不同矩形的寬度/長度的Excel電子表格(比方說objectdata.xls)。因此,電子表格有3列: 對象名稱 對象寬度 對象長度 有大約在電子表格中定義的100個矩形 什麼,我試圖做的是運行在PowerPoint中的宏( PP),它將從電子表格中讀取數據(理想情況下,該信息應該存儲在PP文件的外部,但如果需要的話,它可能是PP中的鏈接或嵌入文件),然後更新我包含的矩形形狀的大小

    1熱度

    2回答

    由於VBA返回到Mac,但遇到在Powerpoint 2007 for Windows中正常工作的代碼(給我一個「在下面的註釋語句)沒有定義」用戶定義類型: Private Function m_CreateStackedChart(SourceData As Excel.Range) As Boolean Dim pptShape As PowerPoint.Shape D

    0熱度

    2回答

    所以我有一個Powerpoint演示文稿。它包含許多圖像,由圖像X引用。(所以它是相同的圖像,但在多個頁面上)不同頁面/幻燈片上的這些相同圖像具有與它們相關的不同寬度/高度屬性。所以即使它們是相同的圖像,它們的尺寸也可能不一樣。 因此,存在很多幻燈片上存在圖像的情況。我希望能夠在不需要通過每張幻燈片的同時(快速)替換所有這些幻燈片,並分別用新圖像替換一個X. 這可能嗎? (是/否) 這將如何完成?

    3熱度

    2回答

    如何從Powerpoint(無論是2007年還是2010年)連接到SQL DB以生成報告?我見過不少論壇,其中大多數都討論使用外部工具。 檢查http://www.officekb.com/Uwe/Forum.aspx/powerpoint/34863/Linking-PowerPoint-to-a-database http://www.ljzsoft.com/pptreport/help/pp

    0熱度

    1回答

    我是新來的VBA和最近遇到了以下問題:我從一個Excel工作表到PowerPoint中複製數據(行),我想打一個組合框的每一行(所以對於每排在Excel中),我複製。所有我能找到的是如何通過Powerpoint中的菜單手動插入組合框,但我想避免手動添加這麼多。有沒有辦法通過VBA代碼添加組合框? Here is some of the code I use: 'Loop through eac

    1熱度

    1回答

    我有一個包含200多個Powerpoint文件的文件夾,我一直在努力使用打開這些文件中的每一個的宏,編輯它們,保存它們並在循環中關閉它們。 我已經設法爲編輯部分創建代碼,但是我無法管理創建一個代碼來選擇文件夾中的每個文件。使用"*.pptx"似乎不起作用,並且爲每個文件編寫具有特定文件名的代碼效率非常低。 有沒有人有解決這個問題? Sub SaveNotesText() Dim oPres A

    3熱度

    1回答

    播放插入的演示文稿中的多張幻燈片的形狀音頻剪輯,沒有在選項播放聲音對話框中稱爲的影響標籤停止播放,這可以設置爲後__幻燈片。 我瀏覽過對象模型,甚至嘗試使用ppt 2003錄製宏(該選項不記錄)。如何(如果可以)可以通過VBA設置此選項? 的方式我目前將聲(即停止後的幻燈片是高級)是: Dim oSlide As Slide Dim oShp As Shape Dim oEffect As E

    1熱度

    1回答

    我試圖插入的Shockwave Flash電影到PowerPoint 2010時,使用這樣的VBA值設置爲屬性的FlashVars: Dim s As Shape Set s = ActivePresentation.Slides(1).Shapes.AddOLEObject(0, 0, -1, -1, ClassName:="ShockwaveFlash.ShockwaveFlash")