[發問] 讓每次新產生的Shape.name 能以順序命名

帖子: 15
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2014-5-29
最後登錄: 2015-10-23

1^# 跳轉到 »

發表於 2014-6-18 21:47 | 顯示全部帖子

圖表命名

各位大大現在是這樣
每當我按一下產生新圖案的時後，在名稱上 excel 自動命名為圖表1，下次再呼叫的時後會自動變成圖表2
能否在呼叫圖表的時後，就定義他的名字呢?
我試過下列程式碼都不行
=================
Private Sub CommandButton1_Click()
With ActiveSheet.ChartObjects.Add _
      (Left:=100, Width:=375, Top:=75, Height:=225)
With .Chart
      .ChartType = xlXYScatterLines
      .SetSourceData Source:=Sheets("Sheet1").Range("F6:J7")
      .Parent.Name = "Name of this Chart"
End With
End With
End Sub
==========================
charts.add
ActiveSheet.Chart.name="test"
===========================
Charts.name="test"
=============
都不行，請好心人士幫忙解答謝謝

TOP

kerochen

小學生 Rank: 1

帖子: 15
主題: 3
精華: 0
積分: 30
點名: 0
作業系統: win7
軟體版本: 2010
閱讀權限: 10
註冊時間: 2014-5-29
最後登錄: 2015-10-23

2^# 倒序看帖

打印

字體大小: tT

發表於 2015-9-28 08:49 | 顯示全部帖子

[發問] 讓每次新產生的Shape.name 能以順序命名

Hi 高手們，疑問如下, 當按下Button時, 會一次讀取這15個欄位並同時產生15個shape, 而我須要分別命名1A、2A....到15A, 而當我清除這15個shape之後, 再次重新產生15個Shape 時, 名稱也是一樣是從1A.、2A.到15A... 請高手指導一下. 謝謝.

Private Sub commandbutton

pos=15
for index 3 to 7
for indexb = 6 to 10
dim second as double
second=val(cells(index + 1, indexb).value)
dim text as string
text=cells(index,indexb).value
call drwa(second,text,pos)
next
next
end sub
Public sub------------
activesheet.shapes.addshape(msoshaperectangle,shape_left,shape_top,sec*5.1,30).select
selection.name="1A"