powerpoint

Show color picker for user to choose from in VBA powerpoint

由 我是研究僧i 提交于 2020-04-18 06:12:39
问题 I am working on an add-in for powerpoint where I need the use to supply a given color - preferably in RGB terms. Is there a way in VBA to display the colorpicker? 回答1: In Excel getting the palette colors is easy. This changes the background of the cells in worksheet 1, as per the selected color from the palette: Sub TestMe() Dim rgbSet As Variant: rgbSet = Application.Dialogs(xlDialogEditColor).Show(1) If rgbSet Then Worksheets(1).Cells.Interior.Color = ThisWorkbook.Colors(1) End Sub In

How to add new slide while copying excel tables using “for” loop from Excel vba?

由 旧巷老猫 提交于 2020-04-18 01:21:14
问题 Dim myPresentation As Object Dim mySlide As Object Dim PowerPointApp As Object Dim shp As Object Dim MySlideArray As Variant Dim MyRangeArray As Variant Dim x As Long PowerPointApp.ActiveWindow.Panes(1).Activate Set myPresentation = PowerPointApp.ActivePresentation MySlideArray = Array(1, 2) MyRangeArray = Array(Worksheets("name").Range("A3:E17"), Worksheets("age").Range("A22:E37")) For x = LBound(MySlideArray) To UBound(MySlideArray) MyRangeArray(x).Copy Set shp = myPresentation.Slides

How to add new slide while copying excel tables using “for” loop from Excel vba?

由 时光毁灭记忆、已成空白 提交于 2020-04-18 01:21:12
问题 Dim myPresentation As Object Dim mySlide As Object Dim PowerPointApp As Object Dim shp As Object Dim MySlideArray As Variant Dim MyRangeArray As Variant Dim x As Long PowerPointApp.ActiveWindow.Panes(1).Activate Set myPresentation = PowerPointApp.ActivePresentation MySlideArray = Array(1, 2) MyRangeArray = Array(Worksheets("name").Range("A3:E17"), Worksheets("age").Range("A22:E37")) For x = LBound(MySlideArray) To UBound(MySlideArray) MyRangeArray(x).Copy Set shp = myPresentation.Slides

Copy excel ranges onto same slide in powerpoint as adjacent pictures

由 家住魔仙堡 提交于 2020-04-16 05:47:07
问题 First my source looks like this: I want the 2 sub-ranges (let's say "A3:C6" & "A8:C11") to be pasted on one powerpoint slide side by side. This is for one worksheet. There are 6 such sheets all with same range. I learnt how to use PageSetup property to change object dimensions (code posted here) but i'm not able to write a for loop to paste each sub-range to each corner of a slide. And extend that for loop to all 6 sheets in my workbook. Can anyone help me please? 回答1: This is a generalized

VBA Powerpoint - How to highlight selected text

由 僤鯓⒐⒋嵵緔 提交于 2020-03-24 02:44:09
问题 I would like to highlight the selected text into a colour but this is not working. Could you help me with that ? Sub ShadingLtYellow() ActiveWindow.Selection.TextRange.HighlightColor.RGB = RGB(255, 255, 175) End Sub Also can I trigger the macro using the a keyboard shortcut such as application onkeys on Excel ? This would be great 回答1: TextRange is for backward compatibility with older versions of PowerPoint. With current versions (2010 and later), use the Textrange2 object instead, it has

使用 PowerPoint 制作演示稿：10 大注意事项

由 此生再无相见时 提交于 2020-03-07 08:54:28
如果使用得当，它将发挥强大的作用 工作场所 PC 用户指南 作者：Jeff Wuorio Cherie Kerr 了解 PowerPoint 在商务会议中振奋人心并具有说服力的原因所在。 她也清楚地知道可能产生负面作用。 决窍： 在 PowerPoint 中，通过选定您要改变的图形，可迅速将自选图形转换为另一个自选图形而不会改变格式，单击 绘图按钮 （在 绘图 工具栏），指向“改变自选图形”，然后单击新的自选图形。 “她将成为您最好的朋友，” 在加利福尼亚担任公共关系顾问的 Santa Ana 说。 “前提是您必须正确使用。” Kerr 对于这款广受欢迎的 微软演示和图形程序一分为二的看法也正反映出了企业界和学术界长久以来对此问题的争论。 很多人将 PowerPoint 推崇为有价值的强大商业工具，但是也有一部分人认为它是实现有效互动的障碍，会搅乱、歪曲甚至毁掉沟通。 然而，正如 Kerr 指出的那样，任何关于 PowerPoint 优劣的讨论只是说明了利用此程序胜人一筹的重要性。 这里有 10 种使用 PowerPoint 的方法，能够让您的业务更加出色。 1. 采用强有力的材料支持您的演示。 在某种程度上，PowerPoint 的易用性可以成为它最致命的弱点。 虽然利用它可以轻松创建引人注目的幻灯片和图形，但您需要知道 PowerPoint 并非独立存在。

Windows keyboard hook API in VBA causes infinite loop in PowerPoint

由 匆匆过客 提交于 2020-03-05 02:52:49
问题 I've built a simple VBA module to set a keyboard hook and a corresponding procedure to detect a pre-defined key combination (ctrl+3). It works perfectly except that when a user tries types in a window of the hosting app (PowerPoint), the code runs into an infinite loop causing the app to hang/crash. Here is the complete module with reproduction instructions: ' =========================================================================== ' Module : MOD_Keyboard_Shortcuts ' Purpose : Create pre

Windows keyboard hook API in VBA causes infinite loop in PowerPoint

由 余生颓废 提交于 2020-03-05 02:52:27
问题 I've built a simple VBA module to set a keyboard hook and a corresponding procedure to detect a pre-defined key combination (ctrl+3). It works perfectly except that when a user tries types in a window of the hosting app (PowerPoint), the code runs into an infinite loop causing the app to hang/crash. Here is the complete module with reproduction instructions: ' =========================================================================== ' Module : MOD_Keyboard_Shortcuts ' Purpose : Create pre

Existence of shapes in Powerpoint

由 我与影子孤独终老i 提交于 2020-03-04 15:36:34
问题 I would like to build a condition on a command button on a Macro enabled powerpoint presentation. If the shape exists then I would like it deleted, otherwise the button should produce a statement about the fact that there is no such shape. Currently I am having trouble with existence...! How do I get Power point to recognise the shape is null? Here is my code: If ActivePresentation.Slides(3).Shapes("Picture") Is Nothing Then MsgBox "no Picture" Else ActivePresentation.Slides(3).Shapes(

What is the correct way to implement bullet functionality in powerpoint Autoshape

由 那年仲夏 提交于 2020-02-25 07:11:06
问题 I made a function to apply custom bullets up to 5 levels parent, level 1, level 2, level 3 and none. shapeR.TextFrame.Ruler.Levels[1].FirstMargin = 0; shapeR.TextFrame.Ruler.Levels[1].LeftMargin = (float)40.53543; shapeR.TextFrame.Ruler.Levels[2].FirstMargin = 60; shapeR.TextFrame.Ruler.Levels[2].LeftMargin = (float)100.53543; shapeR.TextFrame.Ruler.Levels[3].FirstMargin = 120; shapeR.TextFrame.Ruler.Levels[3].LeftMargin = (float)160.53543; shapeR.TextFrame.Ruler.Levels[4].FirstMargin = 180;
订阅 powerpoint