VBA在EXCEL中创建图形线条

EXCEL使用了多少行： ActiveSheet.UsedRange.Rows.Count（再也不用循环到头啦）

创建线条并命名：ActiveSheet.Shapes.AddLine(x1,y1,x2,y2).name="Line"&CSTR（i）

E.G.

Private Sub ClearPreviousLines()Const LINE_FLAG As String = "#LINE#"Dim myLine As ShapeFor Each myLine In ActiveSheet.ShapesIf InStr(1, myLine.Name, LINE_FLAG, vbTextCompare) > 0 ThenmyLine.DeleteEnd IfNextEnd SubPrivate Sub MarkCurrentProgress()Const LINE_FLAG As String = "#LINE#"Const RNG_MAIN_PROG As String = "B5"Const COL_PROGRESS As Integer = 10Const COLS_PROGRESS As Integer = 10Dim r As LongDim x As Integer, y As Integer, h As Integer'Mark each step progressFor r = 1 To ActiveSheet.UsedRange.Rows.CountstrPercent = CStr(Cells(r, COL_PROGRESS).Value)If strPercent <> "" ThenIf IsNumeric(strPercent) ThenWith Cells(r, COL_PROGRESS)x = .Left + (Cells(r, COL_PROGRESS + COLS_PROGRESS).Left - .Left) * .Valuey = .Toph = .HeightEnd WithActiveSheet.Shapes.AddLine(x, y, x, y + h).Name = LINE_FLAG & CStr(r)End IfEnd IfNext r'Mark main progress
    Range(RNG_MAIN_PROG).SelectWith Selectionx = .Left + .Width * Selection(1, 1).Valuey = .Toph = .HeightEnd WithActiveSheet.Shapes.AddLine(x, y, x, y + h).Name = LINE_FLAG & "Main"End Sub

转载于:https://www.cnblogs.com/jiceberg420/p/4671037.html

VBA在EXCEL中创建图形线条相关推荐

青蛙换位置excel_吃青蛙：如何在Excel中创建每日交付的sprint消耗图
青蛙换位置excel In the first article I wrote on how to create a SCRUM-based, sprint burn down in Excel, H ...
创建jira sprint_如何在Excel中创建高级sprint燃尽图
创建jira sprint SCRUM is a great way to manage all sorts of tasks including sprints, but you don't hav ...
在 Excel 中创建强大图表的三个技巧
Microsoft Excel 可以成为理解复杂数据集并使它们可视化的强大工具.通过在 Excel 中创建图表和图形,您可以快速轻松地识别数据中的趋势.模式和异常值.这可以帮助您获得有价值的见解并做出 ...
C# 在Excel中绘制图形
简介本篇文章将介绍C# 如何处理Excel图形相关的问题,包括以下内容要点: 1.绘制图形 1.1 绘制图形并添加文本到图形 1.2 添加图片到图形 1.3 设置图形阴影效果 2. 提取图形中的文本 ...
excel格子颜色_在Excel中创建格子图案
excel格子颜色 Suddenly, it's November, and it's time to plan what you'll wear on St. Andrew's Day (Novem ...
如何在Excel中创建动态定义的范围
Your Excel data changes frequently, so it's useful to create a dynamic defined range that automatica ...
利用VBA将excel中链接转换为图片形式存放在指定的单元格中
利用VBA将excel中链接转换为图片形式存放在指定的单元格中 VBA代码如下 Private Declare Function URLDownloadToFile Lib "urlmon& ...
excel箱形图中位数_在Excel中创建简单的箱形图
excel箱形图中位数 A box plot (box and whisker chart) lets you show how numbers are distributed in a set of ...
在Excel中创建彩色的Harvey球
It's easy to add conditional formatting icons in Excel, by selecting one of the built in options. Th ...

VBA在EXCEL中创建图形线条

VBA在EXCEL中创建图形线条相关推荐

最新文章

热门文章