因此,我试图编写一个代码,在word文档中的每一页的表上添加一个文本框。此文本框将居中以与表对齐(我没有问题在每一页上生成一个居中的表)。我最近才开始在VBA工作,所以我的知识有点缺乏。到目前为止,这是我的代码,它是我可以在网上找到的一种混搭。
Sub TextMaker()
'
' TextMaker Macro
'
'
Dim i As Long, Rng As Range, Shp As Shape
Dim objDoc As Document
Dim objTextBox As Shape
Set objDoc = ActiveDocument
我有一个基本的HTML表单,我居中。我正在使用jQuery插件动态验证字段是否为必填字段。当它在文本框后添加"Field is required“消息时,它会导致表单/表因为它在一个表中而移动。这是有道理的。
我的问题是,最好的方法是保持表格/表单在页面上居中,同时又允许任何动态添加的元素“在”文本框之后添加而不移动表单?请看我的例子:
如果在保持样式不变的情况下更容易做到这一点,我不一定需要它保留为一个表。
我正在使用Excel 2013,并创建了一些宏,目前正在将它们嵌入文本框中。我将如何制作一个宏,该宏接受选定的文本框并将其居中,并对其进行大小调整,使其与其所处的单元格完全匹配。
Sub TextBox2Cell()
With ActiveCell
ActiveSheet.Shapes.AddTextbox _
msoTextOrientationHorizontal, .Left, _
.Top, .Width, .Height
End With
End Sub
我有这段代码来创建新的文本框,但是我需要用已经创建的文本框
我在"Logo“的左上角有一张图片"Picture 1”。这是通过另一个宏实现的。现在我想要一个宏来复制“图片1”,并将其粘贴到"Voorblad“页上的文本框"TextboxLogo”中。图片应自动调整为文本框高度的90%,并居中垂直和水平居中。
这是我到目前为止得到的代码:
Sub Macro1()
Dim picture As Shape
Sheets("Logo").Activate
picture = ActiveSheet.Shapes.Range(Array("Picture 1"))
Sheets("Vo