(272) ActiveCell.Value = DateAdd("yyyy", 2, Date) '获取两年后的今天的日期 (273) MsgBox WeekdayName(Weekday(Date)) '获取今天的星期数 (274) ActiveCell.Value = Year(Date) '在当前单元格中输入今年的年份数 ActiveCell.Value = Month(Date) '在当前单元格中输入今天所在的月份数 ActiveCell.Value = Day(Date) '在当前单元格中输入今天的日期数 (275) ActiveCell.Value = MonthName(1) '在当前单元格中显示月份的名称,本句为显示"一月" (276) ActiveCell.Value = Hour(Time) '在当前单元格中显示现在时间的小时数 ActiveCell.Value = Minute(Time) '在当前单元格中显示现在时间的分钟数 ActiveCell.Value = Second(Time) '在当前单元格中显示现在时间的秒数 (277) ActiveSheet.Shapes(1).Delete '删除当前工作表中的第一个形状 (278) ActiveSheet.Shapes.Count '获取当前工作表中形状的数量 (279) ActiveSheet.Shapes(1).TextEffect.ToggleVerticalText '改变当前工作表中第一个艺术字的方向 (280) ActiveSheet.Shapes(1).TextEffect.FontItalic = True '将当前工作表中第一个艺术字的字体设置为斜体 (281) ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, "三峡", _ "Arial Black", 22#, msoFalse, msoFalse, 66#, 80).Select '在当前工作表中创建一个名为"三峡"的艺术字并对其进行格式设置和选中 (282) ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _ EndY:=100).Select '在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中 (283) ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTriangle, _ Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角在(70,40),宽为130高为72的三角形并选中 (284) ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangle, _ Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个以点(70,40)为起点,宽130高72的矩形并选中 (285) ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _ Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角在(70,40),宽为130高为72的椭圆 (286) ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255) '将当前工作表中第一个形状的线条颜色变为蓝色 (287) ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0) '将当前工作表中第2个形状的前景色设置为红色 (288) ActiveSheet.Shapes(1).Rotation = 20 '将当前工作表中的第1个形状旋转20度 (289) Selection.ShapeRange.Flip msoFlipHorizontal '将当前选中的形状水平翻转 Selection.ShapeRange.Flip msoFlipVertical '将当前选中的形状垂直翻转 (290) Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1 '将所选取的形状设置为第1种立体样式 (291) ActiveSheet.Shapes(1).ThreeD.Depth = 20 '将当前工作表中第一个立体形状的深度设置为20 (292) ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255) '将当前工作表中第1个立体形状的进深部分的颜色设为蓝色 (293) ActiveSheet.Shapes(1).ThreeD.RotationX = 60 '将当前工作表中的第1个立体形状沿X轴旋转60度 ActiveSheet.Shapes(1).ThreeD.RotationY = 60 '将当前工作表中的第1个立体形状沿Y轴旋转60度 (294) Selection.ShapeRange.ThreeD.Visible = msoFalse '将所选择的立体形状转换为平面形状 (295) Selection.ShapeRange.ConnectorFormat.BeginDisconnect '在形状中让指定的连接符起点脱离原来所连接的形状 (296) ActiveSheet.Shapes(1).PickUp '复制当前工作表中形状1的格式 (297) ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 260, 160, 180, 30). TextFrame.Characters.Text = "fanjy.blog.excelhome.net" '在工作簿中新建一个文本框并输入内容 (298) ActiveSheet.Shapes.AddLabel(msoTextOrientationHorizontal, 20, 80, 100, 200). TextFrame.Characters.Text = "fanjy.blog.excelhome.net" '在当前工作表中建立一个水平文本框并输入内容 (299) ActiveSheet.Shapes.AddPicture "d:\sx.jpg", True, True, 60, 20, 400, 300 '在当前工作表中插入一张d盘中名为sx的图片 (300) ActiveChart.ApplyCustomType xl3DArea '将当前图表类型改为三维面积 (责任编辑：admin) |
