powerpoint-vba

    0熱度

    1回答

    我有幾張Powerpoint套牌,其中包含圖表的前三張幻燈片。目前,我需要進入他們每個人,並從這些圖表複製數據並將其粘貼到Excel工作簿中。有沒有辦法使用VBA來做到這一點? Powerpoint圖表不會從Excel中提取數據。我看到另一個線程調整Powerpoint表的數據,但在圖表上沒有任何變化。另外,我需要將這些數據複製並粘貼到excel中。

    0熱度

    1回答

    我有以下的宏,在電源點的時間對齊1張選擇圖片​​: Sub Align() With ActiveWindow.Selection.ShapeRange .Left = 50 .Top = 100 End With End Sub 如果我運行一個宏此代碼工作在幻燈片中選擇的圖片。 但是我怎樣才能運行這個腳本爲每張幻燈片的每張圖片?

    0熱度

    1回答

    我想檢查一個文件名是否已經存在。當我在本地桌面上測試它時,我所寫的內容完美無瑕。但是所有的FileNames都保存在Sharepoint中。當我在那裏測試時,它不起作用!我總是得到錯誤信息:壞文件名或數字。 這是我寫的: Private Sub CommandButton21_Click() Dim NewFileName As String Dim OwnPathName As

    0熱度

    1回答

    任務:我有一個PowerPoint文件,其中包含帶有文本的幻燈片。該文本包含代碼字,我想用超鏈接替換。現在我正在使用下面的代碼來實現這一點。 For Each sld In prt.Slides For Each shp In sld.Shapes If shp.HasTextFrame Then If shp.TextFrame.HasText Then

    0熱度

    2回答

    我試圖改變WMV視頻到MP4在這個宏改變在PowerPoint西元: Sub mp4_to_wmv() Dim src, ptrn, re, Match, Matches ptr1 = "(\w+)" Create the regular expression. Set re = CreateObject("vbscript.regexp") r

    0熱度

    1回答

    我試圖自動生成報告,PowerPoint演示文稿。當前不能正常工作的功能是PowerPoint的自動文本自動擬合,它在文本溢出形狀邊界時發生。 如果形狀被設定爲使得文本必須適合的形狀(這是默認值),則在形狀所有文本的字體尺寸被自動文本被添加降低。這種行爲顯然只在應用程序可見時激活。這可能是因爲實際呈現文本的行爲是通知PowerPoint已發生溢出並觸發了縮小字體的操作。 當我做與隱藏應用程序窗口的

    0熱度

    1回答

    以下問題: 我在VBA中聲明tbl爲Table。我想在PowerPoint中顯示一些表格。 如果單元格的文本太長,單元格變大並且超出了滑動限制。我想避免這種情況。我只是想調整文本大小,也就是說,我只是希望文本變得更小,以適應單元格。這意味着,細胞桌的大小不應該改變! 你會怎麼做?我試過了: ppPres.Slides(NumSlide).Shapes(NumShape).Table.Columns

    0熱度

    1回答

    (Excel和PowerPoint中2011適用於Mac) 我有打開PowerPoint和執行宏Excel宏。 如果我執行宏的PowerPoint演示直接它工作正常,但如果我從Excel宏調用執行它,它失敗,運行時錯誤「68」:設備不可用 正是這種循環之前: Dim strfilee As String mydir = ":tmp" strpath = mydir & ":" strfi

    2熱度

    1回答

    我需要打開我的OS X應用程序時,任何PowerPoint演示文稿打開。 當powerpoint打開時(Auto_Open()),我得到了VBA回調。但是我需要打開每個演示文稿的電話。 在windows中,我們可以在單獨的powerpoint應用程序(差異實例)中打開每個演示文稿。 在Mac中,Powerpoint應用程序將打開一次,所有演示文稿將在相同的Powerpoint應用程序(Powerp

    0熱度

    2回答

    我有一個非常長的PPT演示文稿(大約850張幻燈片),後半部分充滿了我想刪除某些文本的形狀。可悲的是,它似乎與Slide Master無關,所以我不能使用它。 我得到了一個錯誤: Run-time error '-2147024809 (80070057)': The specified value is out of range 下面的代碼,我此刻 Sub DeleteShapeWithS