如何在Excel标签';标题是什么?

如何在Excel标签';标题是什么?,excel,vba,label,vertical-alignment,caption,Excel,Vba,Label,Vertical Alignment,Caption,在Excel2007中,我在工作表中插入了ActiveX标签。我右键单击它并查看属性,并设法将TextAlign属性更改为2(frmTextAlignCenter) 这会将标签标题的文本与标签中心对齐(水平),但文本仍保留在标签顶部。如何使标题文本垂直居中,使其位于标签的中间位置 我在SO中搜索了“垂直对齐”,但没有找到如何对Excel标签的标题执行此操作的方法 谢谢 没有办法直接做到这一点。不过,他有一个聪明的方法来实现它。制作两个框,内框围绕文本自动调整大小,并将内框定位在外框的中点。使用单

在Excel2007中,我在工作表中插入了ActiveX标签。我右键单击它并查看属性,并设法将TextAlign属性更改为2(frmTextAlignCenter)

这会将标签标题的文本与标签中心对齐(水平),但文本仍保留在标签顶部。如何使标题文本垂直居中,使其位于标签的中间位置

我在SO中搜索了“垂直对齐”,但没有找到如何对Excel标签的标题执行此操作的方法


谢谢

没有办法直接做到这一点。不过,他有一个聪明的方法来实现它。制作两个框,内框围绕文本自动调整大小,并将内框定位在外框的中点。

使用单个标签可以实现这一点。
添加1x1像素的透明gif图像,并将PictureAignment属性设置为PicturePositionLeftCenter。

您必须使用2个标签

例如,将它们称为LabelBack、LabelFront。LabelFront应设置为不透明,且无边框使LabelFront的高度小于LabelBack的高度,并将其或多或少置于其上方

然后添加以下代码:

LabelFront.Top = (LabelBack.Top + (LabelBack.Height - LabelFront.Height) / 2) - 1

请注意,我减去了
1
以补偿LabelFront中的
1
额外像素。

好的,很高兴知道没有直接的方法可以做到这一点。我一直在寻找可以让我改变垂直对齐的属性。谢谢你的帮助,琼斯卡!我不敢相信我是5年后第一个投票支持这一点的人。今天最好的发现。谢谢@Larv。这在用户表单中运行良好,在Microsoft Paint中创建了1x1像素的GIF。我将PicturePosition保留为7-fmPicturePositionBoveCenter。它把课文按我的意思往下踢。