龙空技术网

VBA 如何新建图表工作表,这一篇都讲清楚了

江觅 1542

前言:

此时大家对“vbnetchartmouse”大体比较关注,你们都想要分析一些“vbnetchartmouse”的相关内容。那么小编也在网摘上网罗了一些有关“vbnetchartmouse””的相关资讯,希望姐妹们能喜欢,大家快快来学习一下吧!

Excel工作表中有一个专业图表的工作表,实际上在制作过程中不太注意,制作图表工作表可以图形化显示数据内容。

本篇就图表工作表的创建操作做一个简单介绍。

如上图所示,图表工作表作为工作表的一个类型,我们可以利用VBA代码来创建,也可以直接新建里选择图表工作表类型。

为什么不广泛被人们接收图表工作表呢?可能由于其操作难度有点大,所以在使用过程中会发现这样那样的问题无从入手解决。

实际上,图表工作表的属性方法以及事件还真是比较多。

如下图所示,列出一些事件、方法和属性的名称。

上图中的名称都是一个图表对象使用的,Chart对象。

此对象就代表图表工作表或者是一个工作表中的图表。

看名词就难以理解,也就是内嵌图表(嵌入 ChartObject 对象中),或者是单独的图表工作表,就是这个意思。

由于其属性比较多,不可能一次性讲出来,那样的话也记不住,本节将从最简单入手。

具体可看如下代码:

新建图表

Private Sub AddNewChart()Dim Cname As StringCname = VBA.InputBox("输入名称", "图表名称:", "NewChart")Dim Cobj As ObjectSet Cobj = ThisWorkbook.Charts.Add() '新建一个视图    With Cobj        .Name = Cname        .Visible = True    End WithSet Cobj = NothingEnd Sub

新建图片使用如下代码:

ThisWorkbook.Charts.Add() '新建一个图表

很显然,使用Charts对象的Add方法来创建。

Charts和Chart不同之处就是,一个是集合,另一个是集合中独立的一个项。

删除图表

Private Sub DelChart()Dim Cname As StringCname = VBA.InputBox("输入名称", "图表名称:", "NewChart")Dim Cobj As ObjectSet Cobj = ThisWorkbook.Charts(Cname)Cobj.DeleteEnd Sub

删除图表就比较简单了,使用Delete方法。

Charts(ChartName).Delete

图表对象的其它使用方法,在之后的或之前的文章里也有所介绍,不是系统性介绍,但也点点滴滴涉及到了。

如果有兴趣,可以参考下表进行一个自学。

事件

方法

属性

Activate

Activate

Application

BeforeDoubleClick

ApplyChartTemplate

AutoScaling

BeforeRightClick

ApplyDataLabels

BackWall

Calculate

ApplyLayout

BarShape

Deactivate

Axes

CategoryLabelLevel

MouseDown

ChartGroups

ChartArea

MouseMove

ChartObjects

ChartColor

MouseUp

ChartWizard

ChartStyle

Resize

CheckSpelling

ChartTitle

Select

ClearToMatchColorStyle

ChartType

SeriesChange

ClearToMatchStyle

CodeName

Copy

Creator

CopyPicture

DataTable

Delete

DepthPercent

Evaluate

DisplayBlanksAs

Export

Elevation

ExportAsFixedFormat

Floor

FullSeriesCollection

GapDepth

GetChartElement

HasAxis

Location

HasDataTable

Move

HasLegend

OLEObjects

HasTitle

Paste

HeightPercent

PrintOut

Hyperlinks

PrintPreview

索引

Protect

Legend

Refresh

MailEnvelope

SaveAs

Name

SaveChartTemplate

Next

Select

PageSetup

SeriesCollection

Parent

SetBackgroundPicture

Perspective

SetDefaultChart

PivotLayout

SetElement

PlotArea

SetSourceData

PlotBy

Unprotect

PlotVisibleOnly

Previous

PrintedCommentPages

ProtectContents

ProtectData

ProtectDrawingObjects

ProtectFormatting

ProtectionMode

ProtectSelection

RightAngleAxes

Rotation

SeriesNameLevel

Shapes

ShowAllFieldButtons

ShowAxisFieldButtons

ShowDataLabelsOverMaximum

ShowExpandCollapseEntireFieldButtons

ShowLegendFieldButtons

ShowReportFilterFieldButtons

ShowValueFieldButtons

SideWall

Tab

Visible

Walls

本节就介绍这一点,欢迎关注、收藏

---END---

标签: #vbnetchartmouse #vba绘图chart #vba绘制图表