在VBA中，如何计算一个字符串在另一个字符串中出现的次数？
如何计算Access VBA中一个字符串在另一个字符串中出现的次数？例如，在“敏捷的棕色狐狸跳过懒狗”中，“the”出现了多少次？ 推荐答案 因为您可以使用子字符串/区分大小写 matches = (len(lookin) - len(replace$(lookin, find, ""))) / len(find)
..
vba相关内容
VBA中的Windows键盘钩子API在PowerPoint中导致无限循环
我构建了一个简单的VBA模块来设置键盘钩子，并构建了一个相应的过程来检测预定义的组合键(ctrl+3)。它工作得很好，只是当用户尝试在托管应用程序(PowerPoint)的窗口中键入内容时，代码会进入无限循环，导致应用程序挂起/崩溃。以下是带有再现说明的完整模块： ' ==============================================================
..
仅在没有嵌入Excel数据的情况下使用VBA在PowerPoint中创建图表
我正在做一个个人PowerPoint项目，我想在PowerPoint中使用ActiveX使幻灯片更具交互性会很酷。我有一些ActiveX框，您可以在其中设置人口和年增长率，最后一步是将我正在获得的5年预测数据绘制在折线图上。我尝试过使用基于EXCEL的VBA，但大多数解决方案似乎都需要从工作表中提取数据，所以在PowerPoint中不起作用。 我还尝试了以下代码来构建图表，跳过了对工作表的需
..
从Excel VBA中将PPT演示文稿导出为PDF
我正在尝试将PPT演示文稿从Excel VBA导出为PDF格式。在下面的代码中，我在证明使用ExportAsFixedFormat时不断收到类型不匹配错误。为什么？请参阅下面的代码 Option Explicit Private Const ppSaveAsPDF As Long = 2 Private Const ppSaveAsDefault As Long = 11 Private C
..
使用VBA的圆角文本框
我在PowerPoint幻灯片中有一个预定义的文本框，我需要使其角变圆。是否可以使用VBA执行此操作？ 推荐答案 此示例假定您要查找的形状是幻灯片1上的第三个形状。请相应调整： Sub Test() Dim oSh As Shape Set oSh = ActivePresentation.Slides(1).Shapes(3) With oSh .AutoShapeTy
..
在PowerPoint2007中使用VBA在文本中插入符号
我需要以编程方式(VBA/VSTO)将几个特殊符号(例如，笑脸)追加到PowerPoint 2007中的TextRange中的文本中。 我可以使用： 插入符号 With ActiveWindow.Selection.TextRange .Text = "sometext" Call .Characters(.Characters.Count + 1).InsertSymb
..
将特殊Excel表格粘贴到幻灯片占位符PowerPoint VBA中
很抱歉发布另一个PasteSpecial问题，但我还没有找到与我正在尝试的操作完全相关的内容。 我有一些VBA代码： For Each Workbook In Workbooks For Each Sheet In Workbook.Sheets running_pp_app.ActivePresentation.Slides.Add running_pp_app.ActivePr
..
将每张Powerpoint幻灯片导出为单独的pdf文件
我需要为演示文稿的每张幻灯片生成一个pdf文件。 我使用以下代码： ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint 此代码运行良好
..
取消突出显示文本(并保留所有其他字体设置)
感谢两篇帖子(here和here)，我知道如何使用VBA代码突出显示PowerPoint中的文本框文本。 但是，未突出显示文本的问题仍未解决。我尝试将未突出显示的文本框的属性设置为TextRange2.Font(例如.TextFrame2.TextRange.Font.Highlight.SchemeColor = -2)，但在尝试时收到错误(键入的值超出范围)。 请问有人能帮我解决这个问题
..
如何*取消*突出显示选中的文本？
上一篇question介绍了如何使用TextRange2的.Font.Highlight突出显示所选文本。 如何删除突出显示？ 特别是以下任一项. ActiveWindow.Selection.TextRange2.Font.Highlight.RGB = 0 或 ActiveWindow.Selection.TextRange2.Font.Highlight = 0
..
PowerPoint VBA将某些幻灯片导出为pdf
调用此函数时，我正在尝试将所选幻灯片导出为pdf。 此代码运行出色，但将整个幻灯片显示为PDF。 Sub Export_to_PDF() ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "" & "ExportedFile" & ".pdf", ppFixedFormatTypePDF, ppFi
..
获取图片的大小
我当前有一个PowerPoint宏，它可以在当前幻灯片中插入原始大小的图片： Sub Insert_Traverse_2() Dim oPic As Shape Set oPic = ActiveWindow.View.Slide.Shapes.AddPicture("\nlamvfs00065homes lkpec ewpic.png", False, True, 0, 0
..
PowerPoint VBA-粘贴特殊(增强型图元文件)错误
我正在使用PowerPoint 2003 SP3中的宏在Excel工作簿中查找指定的图表，将其复制，然后将其作为增强型图元文件粘贴到当前幻灯片中，最终使用以下代码行： Application.ActiveWindow.View.PasteSpecial DataType:=ppPasteEnhancedMetafile 只要工作正常，我还会收到以下错误： Run-time error
..
使用VBA的PowerPoint幻灯片的度量单位是什么？
我正在使用VBA将图表/图形从Access粘贴到PowerPoint。粘贴后，我使用VBA调整它们的大小，但它不允许我使用英寸(即使当我通过“形状属性”手动执行此操作时，那里的尺寸值也是以英寸为单位)。 我的问题是，我在VBA中使用的数字是什么单位？我假设像素，并尝试使用每英寸96像素的系数进行转换，但这并不完全正确。现在我很好奇它是不是基于我的屏幕分辨率？我可以(通过反复试验)快速编写代码，使
..
如何将PowerPoint幻灯片备注导出到单个文本文件？
通过一些研究，我在以下站点上发现了这段VBA代码： http://www.pptfaq.com/FAQ00481_Export_the_notes_text_of_a_presentation.htm Sub ExportNotesText() Dim oSlides As Slides Dim oSl As Slide Dim oSh As Shape Dim strNotesText
..
粘贴的形状未显示为最新形状(&Q；)
我正在从和Excel电子表格自动生成PowerPoint报表。在粘贴表格之前，我一直在执行该过程。 我正在使用PPApp.CommandBars.ExecuteMso ("PasteSourceFormatting")将表格粘贴到PowerPoint，并且表格在幻灯片上显示为一个形状(第三个形状)。 为了引用我使用的Set pShape = Slide2.Shapes(Slide2.Shape
..
如何为受修改密码保护的只读PowerPoint文件提供VBA访问权限？
我正在尝试创建PowerPoint幻灯片的免费不可编辑版本，以演示如何使用VBA使幻灯片非常动态。这张幻灯片是一个交互式秒表，这里有它的视频： http://i-present.co.uk/free-stuff/free-powerpoint-stopwatch/ VBA用于根据Windows API计时器修改幻灯片上的各种形状。 在免费版本中，我希望运行VBA功能，但将演示文稿
..
VBA Excel SSO到SAP/Runtime Error 70&Quot；访问被拒绝&Quot；
我花了几个小时找出问题所在。 我想用ini文件启动SAP Logonpad，它可以很好地工作。 然后，在绑定到脚本对象之后，我希望使用connection=SapGui.OpenConnection(“SID”，True)打开到特定系统的连接 但始终收到运行时错误70访问被拒绝。 我跟随别人对VB的做法，由于某些原因，我不能用VB做，而必须用VBA做，所以可能有一些差异导致它失败？ 我
..
如何合并行中重复的单元格值？我的代码忽略了一些重复值
我正在尝试合并D列中所有连续的重复单元格。我不关心单元格的格式，也不需要对任何值求和。我想知道下面的代码有什么问题，因为并非所有重复的单元格都在合并.我只能假设我不小心跳过了它们 with thisworkbook.sheets("sheet1") For i = StartRow + 1 To LastRow + 1 If Cells(i, 4) "" Then
..
如何使Outlook提醒弹出并保持在其他窗口的顶部
如何弹出Outlook提醒并保持在其他窗口之上？ 在网上查找了很长一段时间后，我没有找到这个问题的满意答案。 使用Windows 7和Microsoft Outlook 2007+；当提示闪烁时，它不再提供模式框来吸引您的注意力。在安装其他插件可能有问题的工作中(管理员权限)，以及在使用安静系统时，会议请求通常会被忽略。 是否有更简单的方法来实现此而不使用使用第三方插件/应用？
..