作者：乔山办公网日期：
返回目录：excel表格制作
set rr=selection.entirerows
set cc=selection.entirecolumns
rr.delete
cc.delete
VBA中，Shape 对象代表了工作表中的图形对象
因此可百以用 Shape 对象的 TopLeftCell 和 BottomRightCell 返回图形对象所在的左上角单元度格回和右下角单元格，答也就得到了相应的单元格引用位置：
图形左上角单元格：Activesheet.Shapes(图形对象序号).TopLeftCell.Address
图形右下角单元格：Activesheet.Shapes(图形对象序号).BottomRightCell.Address
Sub 绘折线图()
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _
xlRows
ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R9C1:R9C7"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub
A5:G5为数据区域
R9C1:R9C7 表示X轴标志所在单元格区域
第9行第1列(即A9)到第e799bee5baa6e997aee7ad94e78988e69d833349行第7列(即G9)
如果不需要可以把这行删除，得到，然后横坐标就自动123456
Sub 绘折线图()
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A5:G5"), PlotBy:= _
xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub
Sub Insert() '插入图片到指来定单自元格！
Dim a As Object
Sheet1.Pictures.Delete
Set a = Sheet1.Pictures.Insert("C:\Documents and Settings\Administrator\桌面\dscn123.jpg")
a.Top = [a1].Top
a.Height = [a1].Height + [a2].Height + [a3].Height + [a4].Height + [a5].Height
a.Left = [a1].Left
a.Width = [a1].Width + [b1].Width + [c1].Width + [d1].Width + [e1].Width
End Sub
以上代码可以再百sheet1中插度入一张图片，图片大小刚知好占满a1：e5的范道围。