最新WPS办公软件学习教程_免费企业办公软件下载_金山WPS Office官网论坛

 找回密码
 
查看: 8937|回复: 26

[VBA/VBS教程] 【VBA For ET 教材连载系列】七十八

[复制链接]

397

主题

72

听众

3057

积分

测试体验团员

Rank: 14Rank: 14Rank: 14Rank: 14

该用户从未签到

金币
3
威望
5028
帖子
2011
精华
11

特殊贡献奖 最佳教程奖 活跃会员奖

发表于 2010-4-8 23:09 |显示全部楼层
分享到: 新浪微博 腾讯微博
Sheets对象应用案例详解 (五)
! `/ d4 e+ o$ t; c& d% |- Z: V; O' X8 e) [- O* E/ S4 y1 Q, v) d% i
   本课时演示两个Sheets对象应用案例,包括如何删除所有图形对象及删除图表对象。( h# y- x& C% o# s- D& _
一:删除活动工作表中的所有图形对象8 a- q( l# D9 I  {
案例要求:/ {: \/ m* {3 F: D; f. }; h* p. e
   工作表中有图片、自选图形、艺术字、文本框和图表,如何实现一键清除?' L( |) r6 x5 ~$ L) O# j9 ~
知识要点:Shapes
: A. U# u( r; G/ {4 M4 a# x实现步骤:7 z6 v& t. ~# T8 I- |
   1).单击菜单【插入】\【模块】;
+ {$ |2 p: p( Y6 G; |   2).在模块代码窗口输入以下代码:+ _  F" `; q6 h2 b

8 k$ a  T$ y( W: u1 y5 [_____________________________________
6 c! i4 a) h, B/ V7 w3 {: T  x8 x. [+ }3 r6 `2 q
Sub 删除图形对象()5 L5 d& d& a; t' N* ?
ActiveSheet.Shapes.SelectAll'选择所有对象" W# z% q8 |; B! S
Selection.Delete'删除
0 C; E  T% A% X0 z; sEnd Sub
6 }7 s/ p% y% Z4 y2 E* G_____________________________________
# Z( Z5 ~+ o6 [+ [2 p, h1 e7 ~2 r! }% Q& e' }
   3) 返回工作表界面,使用快捷键Alt+F8】打开对话框,执行删除图形对象”,那么工作表中所有图形对象都瞬间删除。
5 s( P+ S4 Q: X- ]4 ^( r语法补充:# q% Y% ~" {$ P
   1.Shapes代表工作表中的图形对象,包括图片、自选图形、艺术字、文本框和图表等等。可以通过Item属性访问其子对象。例如:) E- X# ^' X! v
   Shapes. Item(3))表示第3Shape子对象1 y% ?* m7 G8 d# x6 D
   Shapes. Item(10)表示第10Shape子对象,但参数不能大于工作表中shape对象的总数量,否则会出错。+ T$ C& \0 O) U( i1 p2 p
   2. SelectAll表示全选图形对象。
) g* H5 z- {+ x# K+ G- V% r二:删除图表对象$ n5 d2 z3 z( Y  {
案例要求:( N# `; E' V( ~( K5 O  x& @' c
   通过快捷键“Ctrl+G”定位对象再删除对象,它会将所有图形对象删除,包括图片、自选图形、艺术字、文本框和图表。如何仅仅删除图表呢?
6 z& a# J9 O* r: i; L知识要点:ChartObjects! n0 ~1 [6 m2 C& J1 f
实现步骤:* E& M# w# J& K5 k5 C' \1 D5 k+ d
   1).单击菜单【插入】\【模块】;
- J! k  j% z1 n, D1 n; m; @1 l1 P   2).在模块代码窗口输入以下代码:* L- {0 _* E1 h( P% H1 P
_____________________________________
. n4 R, {( f% m9 G! |! B3 \/ b
Sub 删除图表()
3 P7 \" L3 f0 E1 |0 l: i4 W/ L
" d  C; n" J2 F( w; G  T- U. I! XWith ActiveSheet.ChartObjects

! L* M! \) P* d4 c% m6 q* l8 L9 ^+ s, m0 e* _& Y
MsgBox .Count
2 l/ R( _" I. f, S7 m: b+ O
$ x3 v- p& r' }+ _1 Z4 ]
If .Count > 0 Then .Delete

& Y- [2 E0 Z9 a( i2 F1 P! k# U7 n  c, b, u( L9 u- y9 r
End With

2 B5 z/ J9 U1 }
+ w0 O$ I/ s5 n8 U* FEnd sub
+ E( Z  r! Q  D3 J8 `_____________________________________
- X! _7 l. [- K7 i
" ]. S, R" ?; ?* Y   3) 返回工作表界面,使用快捷键【Alt+F8】打开对话框,执行删除图表”,那么工作表中所有图表都瞬间删除,而图片、文本框、艺术字等等会自动略过。
, k6 c! N$ d  Q. n语法补充:& Q& A' u- R$ ^* j
ChartObjects代表活动工作表中的所有图表! E) I! W1 k  M; @0 f7 @
+ X0 T7 T: U6 t0 B" R1 T% ~3 n# N" A
1 W- y% Q) h) _1 F' j' d
[ 本帖最后由 罗刚君 于 2010-4-22 15:27 编辑 ]

5

主题

0

听众

1842

积分

LV.8

Rank: 8Rank: 8

签到天数: 41 天

[LV.5]常住居民I

金币
347
威望
4997
帖子
488
精华
0
发表于 2010-4-9 09:49 |显示全部楼层
学习,谢罗版!
实习生实习......
回复

使用道具 举报

0

主题

0

听众

26

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
26
帖子
26
精华
0
发表于 2010-4-13 10:31 |显示全部楼层
支持,学习
回复

使用道具 举报

0

主题

0

听众

312

积分

LV.4

Rank: 4

该用户从未签到

金币
6
威望
838
帖子
66
精华
0
发表于 2013-10-17 09:28 |显示全部楼层
继续学习。
回复

使用道具 举报

0

主题

0

听众

2

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
2
帖子
0
精华
0
发表于 2013-10-17 13:00 |显示全部楼层
学习 谢谢分享
回复

使用道具 举报

0

主题

0

听众

10

积分

LV.1

Rank: 1

该用户从未签到

金币
0
威望
16
帖子
0
精华
0
发表于 2013-11-13 11:25 |显示全部楼层
学习 谢谢分享 . _% _8 p& U+ J
回复

使用道具 举报

110

主题

18

听众

2万

积分

LV.17

Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17

签到天数: 1186 天

[LV.10]以坛为家III

金币
2075
威望
66962
帖子
4077
精华
0

优秀会员奖 活跃会员奖

发表于 2015-2-15 13:48 |显示全部楼层
了解一下        
回复

使用道具 举报

3

主题

0

听众

2386

积分

LV.9

Rank: 9Rank: 9Rank: 9

签到天数: 555 天

[LV.9]以坛为家II

金币
551
威望
5809
帖子
1107
精华
0
发表于 2015-3-3 00:44 |显示全部楼层

/ \! l4 |& v  X9 r( P/ @  U7 j3 u5 C0 F我是来打酱油的
回复

使用道具 举报

110

主题

18

听众

2万

积分

LV.17

Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17

签到天数: 1186 天

[LV.10]以坛为家III

金币
2075
威望
66962
帖子
4077
精华
0

优秀会员奖 活跃会员奖

发表于 2015-6-28 20:39 |显示全部楼层
jsdbplt 发表于 2015-2-15 13:48 $ ^) P, }' D- ?# d# X; k2 l+ Z
了解一下

, O0 u$ z; J6 ~0 P% V% }9 p参考一下              
回复

使用道具 举报

15

主题

2

听众

9698

积分

LV.15

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

签到天数: 1154 天

[LV.10]以坛为家III

金币
1977
威望
26854
帖子
2556
精华
0
发表于 2015-6-28 23:42 |显示全部楼层
大大加快办公速度                     
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 更多账号登录:

快速回帖:

fastpost

WPS论坛更新日志|WPS Office官方论坛     

GMT+8, 2017-11-25 09:41

Powered by Discuz! X2.5

© 2001-2012 Comsenz Inc.

回顶部