'查找窗口的API函数 Declare FunctionFindWindow Lib "user32" _ Alias "FindWindowA" ( _ ByVallpClassNameAs String, _ ByVallpWindowNameAs String)As Long '获取窗口大小的API函数 Declare FunctionGetWindowRect Lib "user32" ( _ ByValhWndAs Long, _ lpRectAsRECT)As Long SubShowExcelWindowSize() Dim...
SeleniumBasic的IWindow对象,可以实现浏览器的最大化,全屏,也可以获取和设置窗口的位置和大小。 该对象的属性和方法 Property Position As Position 只读 Property Size As Size 只读 Sub FullScreen() Sub Maximize() Sub Minimize() Sub SetPositon(X As Long, Y As Long) Sub SetSize(Width As Long, Height...
“Web 图片选项”对话框 xlDialogWindowMove 14 “窗口移动”对话框 xlDialogWindowSize 13 “窗口大小”对话框 xlDialogWorkbookAdd 281 “添加工作簿”对话框 xlDialogWorkbookCopy 283 “复制工作簿”对话框 xlDialogWorkbookInsert 354 “插入工作簿”对话框 xlDialogWorkbookMove 282 “移动工作簿”对话框 xl...
Size用于代码的字体的大小。 边距指示器栏显示“边距指示器栏”。 一般信息 选项说明 显示网格在窗台上显示网格。 网格单元列出网格中的单元的测量单位。 Width窗格上的网格单元的宽度。 Height窗格上的网格单元的高度。 将控件对齐到网格将控件的外边缘自动放置到最近的网格线上。
Set frm = parFrm '窗口驾驶盘的取得 hWnd = GetDesktopWindow() '现在分辨率取得 ret = GetWindowRect(hWnd, R) '比例计算 常例:现在800 开发1024 800/1024 = 0.78加倍 x = (R.x2 - R.x1) rat = x / DesignSize SizeL = 0: SizeT = 0: SizeW = 0: SizeH = 0 ...
Set ft = Worksheets(1).Range("a1:a6").Font With ft .Name = "微软雅黑" .Size = 15 .ColorIndex = 5 End With End Sub 代码中定义ft为字体变量,将Worksheets(1).Range("a1:a6").Font的字体赋值给了ft变量,同时使用with语句,设置字体ft变量的name、size、corlorindex属性。
Sub FontSet() With Range("A1:L1").Font .Name = "宋体" '设置字体为宋体 .Size = 12 '设置字号为12号 .Color = RGB(255, 0, 0) '设置字体颜色为红色 .Bold = True '设置字体加粗 .Italic = True '设置字体倾斜显示 .Underline = xlUnderlineStyleDouble '文字添加双下划线 End With End Sub 给...
lpObject As Any) As Long Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type Public Sub GetPicSize() Dim bm As BITMAP Dim pic As IPictureDisp Set pic = stdole.LoadPicture("d:\tes...
例如,AutoSize、Enabled、TextAlign 和WordWrap属于标签Label对象的行为方面的属性,所以归类到“行为”分类;Picture和 PicturePosition 属于标签 Label 的图片方面的属性,所以归类到“图片”分类;BackColor、Caption及ForeColor是属于外观的属性,所以归类到“外观”分类中。
向右4列的单元格(46) Cells.Item(5,”C”) ‘引单元格C5Cells.Item(5,3) ‘引单元格C5(47) Range(“A1”).Offset(RowOffset:=4,ColumnOffset:=5)或 Range(“A1”).Offset(4,5) ‘指定单元格F5(48) Range(“B3”).Resize(RowSize:=11,ColumnSize:=3)Rnage(“B3”).Resize(11,3)...