A01060 - 获取 Excel 图表工具栏信息 - P40

admin · 发表于 2019-9-15 21:59:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转新大榭论坛！

您需要登录才可以下载或查看，没有账号？注册

x

Public Sub 技巧1_060()
1 r# V% m0 H4 Z
Dim myCBar As CommandBar, myCbarCnt As CommandBarControl3 E* o: @1 K% r
Dim i As Long, myRng As Range
! n0 A5 ?0 ?& `
Cells.Clear
# d2 W" `# R. r( K5 I% U6 H
Set myRng = Cells(1, 1)' l8 v& O. S% r# Y* Y3 }. J/ z
myRng.Value = 1
0 N. R6 e9 d& N1 O
Set myCBar = Application.CommandBars("Chart")
" c; I6 T. K! a1 V8 [& |4 o$ a
For Each myCbarCnt In myCBar.Controls& I8 v) f2 R, M/ c, e
With myCbarCnt: f$ M( ] O& z: m
myRng.Value = myRng.Value + 1( k3 E+ [$ y9 m* e
Cells(myRng.Value, 1).Resize(, 7).Value = _3 N3 M6 X: {# m0 j" O
Array(myCBar.Index, myCBar.Name, myCBar.NameLocal, _
* h7 ~* P5 b& y s# {# f
myCBar.Type, .Caption, .ID, .Type)
7 ? [( S5 f# Q! d
If .Type = 10 Then
5 h N3 m( J4 w
myRng.Value = myRng.Value - 1) o" D D0 y: p: v! M6 U
Call mySub(myCbarCnt, 8, myRng); q4 t; H- h ]
End If
( B. E+ U7 P; l* B2 m# P
End With {8 `8 a' T; x9 L$ m- g' F
Next
' ]9 k, q4 d" O2 k$ ~3 p7 `
ActiveSheet.UsedRange.EntireColumn.AutoFit
9 M1 j8 D3 E/ D, g
Set myCBar = Nothing
6 G4 ?' G, j1 Q5 v, K
Set myCbarCnt = Nothing0 a/ [$ ~3 E. z) h [- j0 \
End Sub
; |% G' ~% K8 T( x7 B
Public Sub mySub(myCnt As CommandBarControl, myClm As Long, myCell As Range)
) C! o8 q5 `# q7 N3 f9 K. a
Dim myChdCnt As CommandBarControl
( |5 Y* b& u# u8 n# k
For Each myChdCnt In myCnt.Controls
; i u8 p% ?7 r% E
With myChdCnt
+ X& o4 A8 p; j: o' w7 B* y6 t+ d w
myCell.Value = myCell.Value + 1
) W) v9 Z& g& f4 _5 c1 g
Cells(myCell.Value, myClm).Resize(, 3).Value = _$ ~. e5 N) W& k" F9 A: e' ~: M$ X
Array("'" & .Caption, .ID, .Type)0 [: j9 ?1 ~* O! ~, k$ h
If .Type = 10 Then
+ L" h/ K' p' N1 | d
myCell.Value = myCell.Value - 1
9 a. w8 d) W8 b1 E
Call mySub(myChdCnt, myClm + 3, myCell)
, N1 T: j0 T$ c7 d; w3 M
End If5 x) p) w" x: I& f4 h, y
End With+ v$ c" z' f& \% g
Next" |6 D9 s; V3 d( p' `! |
Set myChdCnt = Nothing
# d& S4 ?+ f" H* F5 D$ X
End Sub

复制代码

		自动登录	找回密码
密码			注册

[VBA精品课] A01060 - 获取 Excel 图表工具栏信息 - P40

马上注册，结交更多好友，享用更多功能，让你轻松玩转新大榭论坛！