程序员经验分享-hwhale

VBA用于在文本溢出时缩小PowerPoint中的字体

2024-04-16

我正在尝试为 PowerPoint 文件找到一个宏，该文件是通过 CAT 工具进行语言转换后导出的。在某些语言对中，由于语言长度的差异，翻译的内容将无法放入源文件文本框中。

因此，翻译和导出的 PowerPoint 文件包含多个形状/文本框，这些形状/文本框的某些内容超出了此类形状的可见区域。我想知道如何使导出的 PPT 文件中所有形状/文本框中新导出的文本内容在整个文件中全局收缩，以适应这些形状的原始大小 - 仅适用于发生内容溢出时的那些形状。

我真正需要的是一个宏，如果文本高度/长度大于形状高度/长度，则将字体大小降低一，直到文本尺寸=形状尺寸。我正在使用 MS Office 15 工作。

谢谢您的意见！


您能否使用形状的 TextRange 的 AutoSize 属性并让 PowerPoint 根据内容自动缩小文本，因为适合程度取决于字体、大小和样式属性？您可以使用以下属性来执行此操作：

oShp.TextFrame2.AutoSize = msoAutoSizeTextToFitShape
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)

vba

powerpoint

VBA用于在文本溢出时缩小PowerPoint中的字体 的相关文章

  • 基于另一个选择列表动态更新选择列表

    我想根据另一个中的用户选择填充下拉列表 在网上找不到任何与之相关的内容 我有一本名为查找部门包含下表 A B BS Business School CG Chemical Engineering where column A有定义的名称de

  • VBA 中类初始化时的参数

    是否可以在初始化时向类传递参数 就像 Java 等面向对象语言中所做的那样 您可以在其中创建参数化构造函数 事件Class Initialize 不允许我输入参数 我怎么解决这个问题 不幸的是 您不能使用参数化构造函数 最接近的替代方案是工

  • 如何从 PowerPoint Interop 获取 ActivePresentation 文件格式

    对于枚举Microsoft Office Interop PowerPoint PpSaveAsFileType 不幸的是 您实际上无法获取文件格式 最好的办法就是读取扩展名 就像在这个线程中一样 如何以编程方式获取 PowerPoint

  • Access 2007 数据库和应用程序的版本控制

    我需要对 Microsoft Access 2007 数据库和应用程序进行版本控制 目前 所有内容都包含在单个 mdb 文件中 该应用程序包括 Forms VBA code 实际数据库 我假设我需要将数据库与表单 代码分开 我希望能够将表单

  • 在vba中打乱数组[重复]

    这个问题在这里已经有答案了 我需要对数组中的值进行无重复的洗牌 我需要在代码中添加什么以避免重复 Function Resample data vector n UBound data vector ReDim shuffled vecto

  • 将文档属性字段添加到页脚会删除现有的页码

    我想在文档中每个页面的页脚中标记一个文档变量字段 我已经弄清楚如何添加该字段 但是 这样做时 页脚中已存在的页码字段将被禁用 仅保留文本并且不再充当动态页码 这是我的代码 它添加了该字段 但以某种方式禁用了页码 sectionFooter

  • 在 Excel 中用 VBA 替换 Chr(160) 时遇到问题

    我收到 Excel 文件已有一段时间了 这些文件通常在帐户后面受特殊字符 alt 0160 的困扰 我通常只是在 Excel 中手动替换它 但最近我变得懒惰了 想使用我的 VBA 脚本替换它 该脚本用于将所需的列插入到我们的数据库中 Sub

  • 每当我打开文档时，VBA 代码就会停止

    首先 很抱歉发布此内容 我知道它可能是重复的this https stackoverflow com questions 51625995 vba code stops after documents open帖子 我试图将其作为编辑发布

  • VBA 中 Thisworkbook.name 和 Activeworkbook.name 之间的区别

    Thisworkbook 和 ActiveWorkbook 有什么区别吗 示例代码 Sub workbook name MsgBox Thisworkbook name End Sub Sub active name MsgBox Acti

  • VBA Excel 大数据操作需要很长时间

    我有两个Excel文件 第一个 Excel 文件包含 人员姓名 和 出席总天数 列 前任 PersonName TotalDays xyz abcd 另一个 Excel 文件包含人员姓名 日期和状态 出席 缺席 PersonName Dat

  • =MATCH() 等价于多维范围

    我有一个 Excel 工作表 其中单元格 A1 C20 INT RAND 10 这是我的数据范围 单元格 E1 1 E2 2 E3 3 等 这些是我试图找到的值 我设置单元格 F1 MATCH E1 A C 0 F2 MATCH E1 A

  • 将图表导出为图像有时会生成空文件

    I m doing a macro that exports all the charts in the sheet and then opens Outlook and attaches them However I ve noticed

  • 导出到 Excel 时如何避免“数字存储为文本”

    当我将表格从 Access 导出到 Excel 时 所有数字都显示为文本 并且单元格上有绿色箭头 有没有办法自动修复此错误 或者有另一种导出方法可以解决该错误 作为参考 这是我导出的方式 DoCmd TransferSpreadsheet

  • 将最后几个功能添加到我的调度模板生成器中

    感谢 StackOverflow 上的一些出色的人 我几乎完成了调度模板生成器的代码 我还想补充三件事 但我遇到了一些麻烦 当前细分 我有两张表 2 员工列表 和 X 模板 员工列表中的值是从单元格 D9 开始的一列员工姓名 然后将员工值转

  • 文本到行 VBA Excel

    我有一个电子表格 其中包含大约 4000 行数据 其中一列数据具有唯一的订单号 我希望使用 作为分隔符将其分隔 所以本质上我想要 Name Order Date Jane 123 001 111 08 15 2013 Gary 333 12

  • 使用 VBA 的下拉菜单

    我需要使用 VBA 从下拉菜单中选择特定选项 我怎样才能做到这一点 链接到我们试图从中提取的网页 IE document getElementsByName down count click 我尝试过的代码 Full Module Priv

  • 如何在VBA编辑器中跳转到行号？

    我在 Office 2010 中使用 VBA 在顶部 有一个带有行号和列号的框 例如 Ln 1480 Col 17 有没有办法在代码编辑中 而不是在执行中 直接跳转到另一个行号 就像我使用的那样Ctrl G在记事本中 这个MSDN答案 ht

  • excel 2010刷新BackgroundQuery中运行时错误1004

    我正在尝试用 vba 编写一个脚本 用于将多个文本文件导入 Excel 一张纸 然后将它们绘制在一张图表上 我面临一个问题刷新后台查询命令并出现 1004 运行时错误 我怎样才能解决它 谢谢 埃亚勒 这是我的代码 Sub fring1 Di

  • 如何等到 Excel 计算公式后再继续 win32com

    我有一个 win32com Python 脚本 它将多个 Excel 文件合并到电子表格中并将其另存为 PDF 现在的工作原理是输出几乎都是 NAME 因为文件是在计算 Excel 文件内容之前输出的 这可能需要一分钟 如何强制工作簿计算值

  • 在Excel中，我可以使用超链接来运行vba宏吗？

    我有一个包含多行数据的电子表格 我希望能够单击一个单元格 该单元格将使用该行中的数据运行宏 由于行数总是在变化 我认为每行的超链接可能是最好的方法 ROW MeterID Lat Long ReadX ReadY ReadZ CoeffA

随机推荐

热门标签