嵌入word中的excel立体图,如果能够完全在图上显示数据标志

hpw · 发表于 2005-4-18 11:56

如图,数据标志有一半被遮住了,如何能够一次把它全部显示出来?

pIiyL7kv.rar (9.34 KB, 下载次数: 38)

守柔 · 发表于 2005-4-18 14:17

做了一个EXCEL的加载宏，请楼主试用一下。

以下代码供参考：

Dim MyBar As CommandBarControl Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next MyBar.Delete End Sub '---------------------- Private Sub Workbook_Open() On Error Resume Next Set MyBar = Application.CommandBars("Standard").Controls.Add(Type:=msoControlButton, _ Before:=1) With MyBar .Caption = "SetDataLabelPosition" .Width = 60 .FaceId = 2101 .Visible = True .OnAction = "SetDataLabelPosition" End With End Sub '---------------------- Sub SetDataLabelPosition() Dim aSeries As Series, aDataLable As DataLabel, OldTop As Double On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕更新 For Each aSeries In ActiveChart.SeriesCollection '在活动图表的数据系列中循环 For Each aDataLable In aSeries.DataLabels '在数据系列的数据标签中循环 With aDataLable OldTop = .Top '取得原来的顶部位置 '在原有位置上提高0.2厘米,可根据情况修改 .Top = OldTop - Application.CentimetersToPoints(0.2) End With Next Next Application.ScreenUpdating = True '恢复屏幕更新 End Sub '----------------------

hmMXUYpg.zip (8.96 KB, 下载次数: 26)

hpw · 发表于 2005-4-18 14:45

呵呵,真是佩服版竹,

对宏的应用真是到家了,而且每次都能一并符上说明,对我这个门外汉来说,也能让我略懂一二(呵呵,就是记不住,只能照搬运用了.)

在EH总是能给我很大的帮助,这次的主题我也同时发往了EXCEL图表版,在那里也有不一样的收获哦!

hpw · 发表于 2005-4-18 15:39

真是不好意思,没意识到重复发贴一事,非常报歉!

下次一定注意!

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