Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
End Sub
Sub auto_open()
'
' Macro1 Macro
' 宏由 wb 录制,时间: 2007-11-5
'
'
Do While ActiveSheet.ChartObjects.Count > 0 '循环把一个表中的所有图表删除掉
ActiveSheet.ChartObjects(1).Delete
Loop
Charts.Add
Dim num As Integer '声明一个Int型对象
Application.OnKey "^c", "" '禁止复制,剪切
Application.OnKey "^x", ""
Application.OnKey "^{INSERT}", ""
num = Sheets("sheet1").UsedRange.Rows.Count ' 获得行数
Debug.Print num
ActiveChart.ChartType = xlLineMarkers ' 线性
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("D:D"), PlotBy:=xlColumns ' 绑定数据列
ActiveChar