[已解决]求高手將变更图表转换成图片

soshewo · 发表于 2012-7-3 17:40

ao1输入0，下面就显示0的图表。然后将0的图表转换成图片，复制到“同屏”的工作表中

因为有0-9共10个数能生成十张图表，
求高手能否批量换成图片并复制到“同屏”的工作表中。
效果就像右边的图那样排列..
谢谢！！

如果用复制成图片的方法
但每期开奖数据都变化
每期都要这样复制10次
很麻烦。
录制宏，我也试过
但因为数据计算要时间
复制成图片都来不及变化
也就是说，这期的图表用录制的方法和上期一样，图表没及时计算变化.

最佳答案

月排行榜 / 总排行榜

爱疯

2012-7-4 17:05

Sub test()
Dim i As Integer, r As Integer, c As Integer
Application.ScreenUpdating = False
Sheet5.Select
Call test1
For i = 0 To 9
'指定单元格
r = Int(i / 2) * 10 + 1
c = IIf(i Mod 2, 8, 1)
Cells(r, c).Activate
'复制图片到同屏
Sheet1.Range("ao1") = i
Sheet1.Shapes("圖表 3").CopyPicture
ActiveSheet.Paste
'只为方便查找。可以不要。
Selection.Name = "圖" & i
'按指定的比例调整形状的高度
Selection.ShapeRange.ScaleHeight 0.23, msoFalse, msoScaleFromTopLeft
Next i
MsgBox "ok"
End Sub
Sub test1() '删除当前工作表中的所有图片
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then shp.Delete
Next
End Sub

复制代码

K線系統_回复.rar (811.35 KB, 下载次数: 11)

soshewo · 发表于 2012-7-3 17:41

soshewo · 发表于 2012-7-3 19:51

soshewo 发表于 2012-7-3 17:41

容量超过500k，上传不了

soshewo · 发表于 2012-7-3 22:25

soshewo 发表于 2012-7-3 19:51
容量超过500k，上传不了

K線系統.part2.rar (352.9 KB, 下载次数: 9)

soshewo · 发表于 2012-7-4 01:15

soshewo · 发表于 2012-7-4 14:52

爱疯 · 发表于 2012-7-4 17:05

Sub test()
Dim i As Integer, r As Integer, c As Integer
Application.ScreenUpdating = False
Sheet5.Select
Call test1
For i = 0 To 9
'指定单元格
r = Int(i / 2) * 10 + 1
c = IIf(i Mod 2, 8, 1)
Cells(r, c).Activate
'复制图片到同屏
Sheet1.Range("ao1") = i
Sheet1.Shapes("圖表 3").CopyPicture
ActiveSheet.Paste
'只为方便查找。可以不要。
Selection.Name = "圖" & i
'按指定的比例调整形状的高度
Selection.ShapeRange.ScaleHeight 0.23, msoFalse, msoScaleFromTopLeft
Next i
MsgBox "ok"
End Sub
Sub test1() '删除当前工作表中的所有图片
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If shp.Type = msoPicture Then shp.Delete
Next
End Sub

复制代码

K線系統_回复.rar (811.35 KB, 下载次数: 11)

soshewo · 发表于 2012-7-4 19:00

爱疯发表于 2012-7-4 17:05
这样可以吗

对呀，是这样。
太感谢你了。
我在好几个论坛问了几天
都只有自己再回。没人理

这里有爱，再次感谢你

爱疯 · 发表于 2012-7-4 19:17

soshewo 发表于 2012-7-4 19:00
对呀，是这样。
太感谢你了。
我在好几个论坛问了几天

可以就好，没什么。
到论坛求助，肯定有人关注的

shh200438 · 发表于 2015-7-17 12:40

非常感谢, 正需要这个.

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

[已解决]求高手將变更图表转换成图片

点评

点评