程序员经验分享-hwhale

VBA 用户窗体：相同字体大小的文本根据 Top 属性更改大小

2024-01-31

我有一个用户表单。在多个不同控件的多种情况下，我观​​察到具有相同宽度、高度、字体和字体大小的对象显示不同的字体大小，具体取决于它们在用户窗体上的放置位置。

Example as seen . . . . Example with dots to show measurements

上面是一个例子。这两个文本框的宽度均为 26H 和 48W，Left 为 90。两者的字体均为 Tahoma Regular 大小 18。它们之间唯一的区别是其 Top 属性。但从视觉上看，上面的文字比下面的文字宽得多。右图添加了点以证明这不是视错觉。上面的只能在字母和边缘之间容纳一个点。下一个可以在字母和边缘之间容纳至少两个点。

谁能解释为什么会发生这种情况？怎么了？或者我怎样才能阻止它发生？


为什么会发生这样的事？

普通 Windows 图形应用程序以 96dpi/ppi 呈现。 但是，Excel的渲染系统是72dpi/ppi，因此，当您指定26作为高度时，Excel会首先将72转换为96 dpi。

26 x 96 / 72 = 34.6667

这意味着您的控件高度为 34.667 像素。 这将在控件的渲染中创建伪影。

你怎么能阻止它呢？

确保控件的最终位置及其高度在表单中的最终像素位置为整数。

您可以通过乘以屏幕 dpi 再除以 Excel dpi(72) 来完成此操作

在您的情况下，您可以应用 25.5 的高度，这将正确渲染它。

我希望我能解决你的答案！

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

vba

Text

fontsize

userform

display

VBA 用户窗体：相同字体大小的文本根据 Top 属性更改大小 的相关文章

  • 从html中获取属性字符串值

    我正在构建一个宏来使用从网站提取数据vba questions tagged vba 目前 我可以使用元素语法轻松地从表内容中获取值 例如obj getElementsByTagName td innerText 但是 当某些单元格中有一些

  • 如何在Excel VBA中获取给定模块名称的函数和子列表

    我正在开发一个帮助宏 它可以查看活动 Excel 工作簿上给定模块名称的列表函数 例如 我有一个模块名称 Module1 该模块内部有以下功能或子功能 Sub Sub1 End Sub Sub Sub2 End Sub Function F

  • 在 google Vision OCR 中被识别为单个单词的特殊字符？

    我试图让谷歌视觉 OCR 正则表达式可搜索 我已经完成了它 并且当文档仅包含英文字符时效果很好 但当有其他语言的文本时 它就会失败 发生这种情况是因为我在谷歌视觉单词组件中只有英文字符 如下所示 VISION API WORD COUNTE

  • 数据透视和运行时错误 1004：应用程序定义或对象定义的错误

    我对宏和 VBA 编码很陌生 我正在尝试创建一个非常简单的宏 它从包含 33 列的表中获取数据并将其转换为数据透视表 只有最后 3 列 31 32 33 包含数字 我需要将其显示在枢轴上 因为我想比较当前月份 上个月以及逐月的变动 到目前为

  • 如何让 selenium 等待页面在 Selenium - Excel VBA 包装器中完全加载？

    Selenium Excel VBA 的包装器使用什么代码或函数 以便程序将等待页面完全加载然后执行其他命令 最新版本在执行所需操作之前隐式等待目标元素存在 例如 driver FindElementById Click 默认情况下会在抛出

  • VBA：删除数组项后减少循环迭代？

    在 Excel 的 VBA 中 For i 0 To UBound artMaster For j i To UBound artMaster If i lt gt j And artMaster i VDN artMaster j VDN

  • 有没有办法设置一个变量一次并在多个地方使用它而不给它模块级别的范围？

    我有一个循环将用户窗体控件添加到集合中 由于多个地方都需要该集合 因此我将其放入模块中并在需要时调用它 这意味着该集合仅在需要时才位于内存中 但这也意味着我每次想要使用它时都会运行一个循环 I could已给出集合模块级别范围并在第一次需要

  • Python：使用 python 运行 Excel 宏

    我需要通过 python 运行 Excel 宏 但总是收到以下错误 result self oleobj InvokeTypes dispid LCID wFlags retType argTypes args pywintypes com

  • 在函数上使用子例程的目的

    我已经使用 Access 一段时间了 尽管我了解 Function 相对于 Sub 的明显好处是它可以返回值 但我不确定为什么我应该使用 Sub 而不是一个函数 毕竟 除非我弄错了 函数可以做所有 Subs 可以做的事情吗 注意 我完全知道

  • 自定义函数错误：“表达式不能在计算列中使用”

    在 Access 2010 中 我尝试在计算列中使用自定义 VBA 函数 我得到 表达式不能在计算列中使用 这是我的步骤 启动 Access 2010 创建一个新的数据库 DB 创建一个包含文本列 Column1 的表 Table1 在 C

  • Excel - 根据选择创建图表的宏

    我想就以下问题寻求您的帮助 因为我必须创建大量图表 所以我想要一个宏来根据我的选择插入图表 由于我对 VBA 没有任何了解 但现在需要它 至少现在 我真的应该自己学习使用它 我将感谢您的帮助 基本上 我需要知道如何调整我记录的代码 以便根据

  • 如何使 java.text.NumberFormat 将 0.0d 格式设置为“0”而不是“+0”？

    需要带符号的结果 0 0d 除外 IE 123 45d gt 123 45 123 45d gt 123 45 0 0d gt 0 我调用format setPositivePrefix 在 DecimalFormat 的实例上 强制结果中

  • VBA仅清除数据透视表缓存，但保留数据透视表结构

    如何使用VBA清除数据透视表缓存 但不破坏数据透视表结构 我的数据透视表已连接到外部数据源 SQL 源决定哪个用户应该查看数据的哪一部分 当表刷新时 源会填充该表 我想保存 Excel 文件并使用干净的数据透视表 内部没有数据 分发它 结果

  • 将 copyfromrecordset 写入范围

    我有以下 vba 它从单元格 C10 开始读取 MCO 直到其为空 并将从 SQL 数据库获取机器数量 解密和升级机器数量 这工作正常 但我在获取相应行中的数据时遇到问题 目前它总是将数据写入 D10 因为我已经对其进行了硬编码 但我不确定

  • FileDialog 保留以前的过滤器

    我正在 Access 数据库中制作表单 我需要打开文件对话框窗口几次 我只是不明白为什么在我更改选项值几次并打开文件对话框窗口后它没有更改过滤器 Public Sub Command17 Click Dim fd As FileDialog

  • schema.ini 文件不适用于 MS Access

    我有一堆 csv 文件 我通过 VBA 将它们导入到 Access 中的表中 我在与导入的 csv 文件相同的目录中还有一个 schema ini 文件 尽管在 ini 文件中字段被指定为双精度类型 但它们在 Access 中会转换为文本类

  • Range.End() 困惑

    我有一个关于 VBA 中 Range End 属性的一般性问题 我已经阅读了有关该房产的信息here http msdn microsoft com en us library bb221181 aspx 但我还是很困惑 例子 With w

  • 图像上的文字

    是否可以在 php 中动态地将文本放置在图像上 然后将其发送到 rss feed 是的 可以使用GD http www php net gd函数或图像魔术师 http www php net imagemagick功能 具体取决于您的服务器

  • 拆分具有多行文本和单行文本的行

    我试图弄清楚如何拆分数据行 其中行中的 B C D 列包含多行 而其他列不包含多行 我已经弄清楚如何拆分多行单元格 如果我将这些列复制到新工作表中 手动插入行 然后运行下面的宏 仅适用于 A 列 但我在编码时迷失了休息 Here s wha

  • 如何使用Python在没有窗口的情况下在屏幕上显示文本

    问题 我需要在没有窗口的情况下直接将文本写入屏幕 文本需要显示在所有其他窗口和全屏应用程序之上 并且不应以任何方式单击或交互 Example The text doesn t need to have a transparent backg

随机推荐

  • 从文本文件读取 - 批处理

    我有一个文本文件 a txt 你好世界下午好 我编写了一个批处理脚本来逐行读取该文件的内容 FOR F tokens delims x in a txt DO echo x 我得到的输出为 Hello World 由于分隔符 空格 的默认行

  • 在Python中使用字符串调用函数[重复]

    这个问题在这里已经有答案了 前几天在网上搜索 发现一篇关于python字典的有趣文章 这是关于使用字典中的键来调用函数 在那篇文章中 作者定义了一些函数 然后定义了一个字典 其键与函数名完全相同 然后他可以从用户那里获取输入参数并调用相同的

  • 继承：内部类与内部接口

    在表达关切的同时防止基类暴露 https stackoverflow com questions 52842532 prevent exposure of base classes abstract classes 52843168 528

  • CMYK + CMYK = ? CMYK / 2 =？

    假设CMYK中定义了两种颜色 color1 30 40 50 60 color2 50 60 70 80 如果要打印它们 最终的颜色会有什么值 color new min cyan1 cyan2 100 min magenta1 magen

  • 为所有用户卸载自动运行注册表项

    考虑这种情况 Inno Setup 将名为 XYZ 的程序安装到 Program Files 中 供所有用户访问 程序 XYZ 中的配置选项允许安装注册表值HKCU Software Microsoft Windows CurrentVer

  • Android：将静态库合并为一个

    我使用 Android NDK r8 生成多个静态库包括 BUILD STATIC LIBRARY 我成功得到 lib1 a lib2 a lib3 a等 现在我想将这些静态库合并为一个 我尝试使用 Android NDK 中的 ar ex

  • 为什么有 BigInteger(String) 而没有 BigInteger(long)？

    在 Java 中 要将 String 转换为 BigInteger 可以使用构造函数new BigInteger String 但要转换 int long 你可以使用工厂函数BigInteger valueof long 这是为什么 Mor

  • AngularDart 组件和模型绑定

    是否可以将 AngularDart ngComponent 绑定到模型 然后从组件操作该模型 并查看 ngComponent 外部更改之外的更改 例如

  • WordPress - $wpdb->插入 - MySQL NOW()

    是否有可能在 wpdb gt insert 调用中使用 MySQL NOW 当我使用以下代码时 NOW 不起作用 data array id gt NULL order gt serialize POST data Order create

  • 从另一个 .ipynb 文件导入函数

    我在名为 functions ipynb 的文件中定义了一个 hello world 函数 现在 我想使用 导入函数 导入另一个文件中的函数 我确信它们位于同一个文件夹中 但是 它仍然显示 ImportError 没有名为函数的模块 顺便说

  • fputs和fflush，写入和缓冲过程

    我对 C 中的写入处理如何进行感到困惑 所以我有一个字符串 s 我想将其写入输出 为此 我使用 fputs fputs s stdout 但显然这不会写入输出 而只是收集数据进行写入 具体是在哪里收集的 所以我必须等到程序退出或者直到我调用

  • 如何正确使用SerialPort.DiscardInBuffer？

    我编写了一个应用程序 它以非常快的速度从串行设备读取数据 然而 串行端口对象无法触发收到数据 https learn microsoft com en us dotnet api system io ports serialport dat

  • 删除单链表中的元素

    在此代码中 我删除链接列表中的元素 11 gt 12 gt 13 gt 14 gt 15 gt 12 gt 16 如果我想删除 12 它只删除第一次出现的元素 即 o p 将是 11 gt 13 gt 14 gt 15 gt 12 gt 1

  • Orgmode：如何过滤掉缠结的块？

    在 Orgmode 中 有没有办法仅缠结子树中与特定标签匹配 或不匹配 的块 例如使用以下代码 A BEGIN SRC c printf Not exported END SRC B D BEGIN SRC c printf Exporte

  • 从 Flutter 中的 Firestore 集合中获取所有内容

    我在我的项目中设置了 Firestore 我创建了名为的新集合categories 在此集合中 我创建了三个具有唯一 ID 的文档 现在我想在我的 Flutter 应用程序中获取这个集合 所以我创建了CollectionReference

  • 测试使用 Hooks 获取数据的 React 组件

    我的 React 应用程序有一个组件 可以从远程服务器获取要显示的数据 在前钩时代 componentDidMount 是该去的地方 但现在我想为此使用钩子 const App gt const state setState useStat

  • 从 PHP 数组中删除“<”和“>”标签

    我有一个像这样的数组 Array 0 gt lt email protected cdn cgi l email protection gt 1 gt lt email protected cdn cgi l email protectio

  • 创建两个日期之间所有天数的向量

    R 中是否有一种简单的方法可以列出两个指定日期之间发生的所有有效日期 例如 我想要以下输入 itemizeDates startDate 12 30 11 endDate 1 4 12 生成以下日期 12 30 11 12 31 11 1

  • 如何在rails活动记录查询中使用包含内部的联接？

    我只是想改进查询 从而提高应用程序的性能 Student includes parents gt emails where emails email address is not null and emails email address

  • VBA 用户窗体：相同字体大小的文本根据 Top 属性更改大小

    我有一个用户表单 在多个不同控件的多种情况下 我观 察到具有相同宽度 高度 字体和字体大小的对象显示不同的字体大小 具体取决于它们在用户窗体上的放置位置 上面是一个例子 这两个文本框的宽度均为 26H 和 48W Left 为 90 两者的

热门标签