[發問] 讓每次新產生的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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2014-6-19 11:12 | 只看該作者

回復 1# kerochen

Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer
With ActiveSheet
i = .ChartObjects.Count
With .ChartObjects.Add(Left:=100, Width:=375, Top:=75, Height:=225).Chart
.ChartType = xlXYScatterLines
.SetSourceData Source:=Sheets("Sheet1").Range("F6:J7")
.Parent.Name = "Name of this Chart " & i + 1
End With
MsgBox .ChartObjects(ChartObjects.Count).Name
.ChartObjects("Name of this Chart " & i + 1).Select
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

kerochen

小學生 Rank: 1

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

3^# 倒序看帖

打印

字體大小: 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"