大神，一个word文档中有很多格式一样的表格，我要让表格某一列居左、居中或居中，怎么用vb宏实现？

Dim XO as Long

网站建设公司,为您提供网站建设,网站制作,网页设计及定制网站建设服务,专注于成都定制网页设计,高端网页制作,对成都玻璃钢雕塑等多个行业拥有丰富的网站建设经验的网站建设公司。专业网站设计,网站优化推广哪家好,专业网站推广优化,H5建站,响应式网站。

Dim YO as Long

XO = Screen.Width

YO = Screen.Height

XO = (XO - Me.Width) / 2

YO = (YO - Me.Height) / 2

Me.Move XO, YO

以上不一定好用。

如果没有必要，用简单一些的方面更好。

比如：用表格属性中的内容居中。

1、在表格中单击右键，选择设置单元格格式

2、选择对齐，面板中的水平对齐。垂直对齐。

3、水平对齐中选择，居中。垂直对齐中选择居中。

4、这样文字内容就对齐了并且是水平、垂直都对齐。

VB.NET窗体居中

Form窗体有一个属性是StartPosition，把它设置为CenterScreen就是居中。

代码为 Me.StartPosition = FormStartPosition.CenterScreen。

如果是非要计算分辨率的话：

My.Computer.Screen.Bounds.Width 是分辨率中的宽度

My.Computer.Screen.Bounds.Height 是分辨率中的高度

那么

Me.Top = (My.Computer.Screen.Bounds.Height - Me.Height) / 2

Me.Left = (My.Computer.Screen.Bounds.Width - Me.Width) / 2

就是让窗体居中啦～

vb。net如何使word中表格居中？？

选中表格，右击鼠标，在“单元格对齐方式”的下拉菜单中，选择最中间那个就可以了（共有九个选项，选中正中心那个选项）。

另外,站长团上有产品团购,便宜有保证

如何实现VB.NET实现代码在datagridview选中行,并在datagridview显示区域居中

非常简单

一：如果知道要选中的行号

datagridview1.Rows(行号).Selected

=

True

datagridview1.FirstDisplayedScrollingRowIndex

=

行号

第一行是选中行号所在的行，第二行是移动滚动条将选中的行在显示区域的最上放显示出来。

二：根据内容选中行并显示

For

i

=

To

datagridview1.Rows.Count

-

1

If

datagridview1.Rows(i).Cells("列的名称").Value

=

要选中行列的值

Then

datagridview1.Rows(i).Selected

=

True

datagridview1.FirstDisplayedScrollingRowIndex

=

i

End

If

Next

而且，如果你不想选中的行显示到最上面，可以这样：

For

i

=

To

datagridview1.Rows.Count

-

1

If

datagridview1.Rows(i).Cells("列的名称").Value

=

要选中行列的值

Then

datagridview1.Rows(i).Selected

=

True

Dim

indeI

As

Integer

=

i

-

15

If

indeI

1

Then

indeI

=

1

datagridview1.FirstDisplayedScrollingRowIndex

=

indeI

End

If

Next

上面的代码是根据某列的值选中行，并且移动滚动条将选中的行在显示区域的第15行显示。

分享文章：vb.net的表格居中 windows表格居中
本文来源：http://chengdu.cdxwcx.cn/article/hioiji.html