레이블 읽기 VBA - Excel

VBA 프로그래밍에 문제가 있습니다. 커브의 보간을 나타내는 레이블의 텍스트를 읽고 싶습니다. 이 코드는 작동하지만 그것이 내가이 "0.0000"숫자 형식을 변경하는 경우에도 항상 B6 동일한 레이블에 기록레이블 읽기 VBA - Excel

ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.Select 

Selection.NumberFormat = "0.000000" 

' estrae dall'etichetta di una interpolazione i coefficienti e li ricopia in celle scelte dall'utente 
Dim s, x3, x2, x, c, R As Double 
Dim i1, i2, i3, f1, f2, f3, ic, fc 

s = ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.Text 
f4 = InStr(s, "x4") 
x4 = Val(Replace(Mid(s, i4, f4 - i4), ",", ".")) 
Worksheets("Interpola").Range("B" & 6) = s

: 은이 코드를 사용했다. 귀하의 관심 감사합니다, 안드레아

출처

2015-01-26 andreatax89

B6의 형식을 변경해보십시오. –

동일합니다. numberformat을 변경하는 것으로 보입니다. 제가보기에는 레이블 만 변경하고있는 것 같습니다. 그러나 내가 그것에 동의 할 때 항상 동일합니다. 어쨌든 고마워. – andreatax89

Excel에서 B6 셀의 서식을 "텍스트"로 변경해보십시오. –

이 시도 :

Dim ws As Worksheet 
Dim ch As ChartObject 
Dim s As String 

Set ws = Worksheets("Interpola") 
Set ch = ws.ChartObjects("Chart 1") 
ch.Select 
ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.NumberFormat = "0.0000" 
s = ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.Text 
ws.Range("B6").Value = s

주 - 변경 "차트 1"차트의 이름.

NumberFormat을 "0.000000"에서 "0.0000"으로 변경하면이 기능이 유용했습니다.

출처

2015-01-26 20:41:26 TheEngineer

고마워, 잘 작동한다.

ActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.NumberFormat = "0.0000"

내가 왜 모르는

thisActiveChart.SeriesCollection(Numero_serie).Trendlines(1).DataLabel.Select 
Selection.NumberFormat="0.0000"

다른하지만 지금은 모든 것이 잘 작동 : 나는 문제가 있다고 생각. 감사합니다.

출처

2015-01-27 11:15:39 andreatax89

미안하다 신제품. 나는 당신의 anwer를 받아 들였다. 이제 맞습니까? 감사합니다 – andreatax89

예, 감사합니다. 정답을 수락하면 미래의 시청자가 어떤 것이 효과적인지 쉽게 알 수 있습니다. 스택 오버플로에 오신 것을 환영합니다! 질문이 있으면 언제든지 다시 오시기 바랍니다. – TheEngineer

레이블 읽기 VBA - Excel

답변

관련 문제