chartspce e marker

[piter123]

salve, stò creando in una form un grafico chartspace. Utilizzo il marcatore xlPlus per vedere delle croci, avrei però bisogno del codice per far vedere solo i marcatori ed eliminare la linea sottostante che unisce i marcatori.

il pezzo di codice che utilizzo è il seguente :

Set oSeries3 = oChart.SeriesCollection.Add 'aggiungo serie
With oSeries3
.SetData oConst.chDimXValues, oConst.chDataLiteral, S1() 'dati asse x
.SetData oConst.chDimYValues, oConst.chDataLiteral, S4() 'dati asse y

.Marker.Style = xlPlus 'tipo di marker
.Interior.Color = RGB(255, 0, 0) 'colore interno marker
.Marker.Size = 10 'dimensione marker

End With


Inoltre perfavore mi servirebbe la riga di codice che mi regola lo spessore del marker,
mille grazie

[piter123]

nemmeno dove trovare una guida ??
grazie

[Anthony47]

Prova sulla libreria tecnica Microsoft, partendo da http://msdn.microsoft.com/en-us/library/default.aspx

Ciao.

[piter123]

avevo già provato, ma non ho trovato nulla, grazie comunque

[Anthony47]

A braccia...
Per nascondere la linea forse potresti usare .Line.Color = RGB(255, 0, 0) scegliendo un colore uguale allo sfondo [.Interior.Color = RGB(255, 0,0)]?
Oppure, non ti e' possibile usare un grafico tipo xy-scatter, che di suo non dovrebbe avere una linea di connessione tra i punti?
O non esiste una proprieta’ .Line.Style = xlNone ?

Per il marker, forse devi accontentarti del .Marker.Size

Spero ci sia qualcosa di utile. Ciao.

[piter123]

intanto grazie per l'interessamento.

l'escamotage di colorar la linea con lo stesso colore dello sfondo è quello che uso attualmente ma ha l'inconveniente che sovrapponendosi sopra la griglia asse y-asse x scolora gli assi nei punti dove passa e quindi anche se in maniera meno vistosa si vede.

Proverò con i suggerimenti che mi hai dato e poi Ti farò sapere. Intanto grazie.

Volevo sottoporti un'altro problema di non poca importanza. Nel codice di seguito riportato carico un chartspace con i relativi dati, setto colori tipo di linee ecc.. Setto l'asse y senza problemi ma non riesco a settare l'asse x come faccio per l'asse y. Avrei quindi bisogno di poter impostare il valore di massima scala , di minima scala nonchè di minor e major unit dell'asse x, mi puoi aiutare, grazie


Private Sub CommandButton1_Click()
'....................................................................
'PULISCE IL VECCHIO
ChartSpace1.Clear
Set ChartObj = ChartSpace1
Set ChartConsts = ChartObj.Constants
Set NEWCHART = ChartObj.Charts.Add

'..................................................................

'TIPO DI GRAFICO
NEWCHART.Type = 6

'........................................................................

'CARICA DATI
Dim S1(39), S2(39), S3(39), S4(39), S5(39) As Variant
For i = 0 To 39
S1(i) = Cells(i + 2, 1) 'ASSE X
S2(i) = Cells(i + 2, 2) 'DATI 1 ASSE Y
S3(i) = Cells(i + 2, 3) 'DATI 2 ASSE Y
S4(i) = Cells(i + 2, 4) 'DATI 3 ASSE Y
S5(i) = 0 'DATI 4 ASSE Y
Next i

'.............................................................................

'Creazione delle serie
Set Serie = NEWCHART.SeriesCollection.Add
Set Serie1 = NEWCHART.SeriesCollection.Add
Set Serie2 = NEWCHART.SeriesCollection.Add
Set Serie3 = NEWCHART.SeriesCollection.Add
Set Serie4 = NEWCHART.SeriesCollection.Add

Serie.SetData ChartConsts.chDimCategories, ChartConsts.chDataLiteral, S1
Serie1.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, S2
Serie2.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, S3
Serie3.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, S4
Serie4.SetData ChartConsts.chDimValues, ChartConsts.chDataLiteral, S5

'..............................................................

'Setto il colore di sfondo
ChartSpace1.Charts(0).PlotArea.Interior.Color = "BLACK" 'COLORA SFONDO INTERNO
ChartSpace1.Charts(0).Border.Color = RGB(255, 0, 0) 'COLORA BORDO
ChartSpace1.Charts(0).Interior.Color = "BLACK" 'COLORA ESTERNO GRAFICO
ChartSpace1.Charts(0).Border.Weight = 2 'SPESSORE BORBO GRAFICO

'...........................................................................................................................................................

'COLORE LINEE
ChartSpace1.Charts(0).SeriesCollection(1).Line.Color = RGB(0, 163, 209)
ChartSpace1.Charts(0).SeriesCollection(2).Line.Color = RGB(0, 163, 209)
ChartSpace1.Charts(0).SeriesCollection(3).Line.Color = RGB(0, 163, 209)
ChartSpace1.Charts(0).SeriesCollection(4).Line.Color = RGB(86, 89, 89)

'----------------------------------------------------------------------

'TIPO LINEA
ChartSpace1.Charts(0).SeriesCollection(2).Line.DashStyle = VtPenStyleDitted

'--------------------------------------------------------------------------

'SPESSORE LINEA
ChartSpace1.Charts(0).SeriesCollection(1).Line.Weight = 4
ChartSpace1.Charts(0).SeriesCollection(4).Line.Weight = 4

'--------------------------------------------------------------------

'MARCATORE
ChartSpace1.Charts(0).SeriesCollection(3).Marker.Style = chMarkerStylePlus
ChartSpace1.Charts(0).SeriesCollection(3).Marker.Size = 15
ChartSpace1.Charts(0).SeriesCollection(3).Interior.Color = RGB(0, 137, 175)

'---------------------------------------------------------------------------

'SCALA ASSE Y
Set oAxis1 = NEWCHART.Axes(ChartConsts.chAxisPositionLeft) 'SCALA Y
oAxis1.Scaling.Maximum = 20000
oAxis1.Scaling.Minimum = -15000
oAxis1.MajorUnit = 2500 'UNITA' DIVISIONE
oAxis1.NumberFormat = "$ #,##0;[RED]$ -#,##0" 'FORMATTA TIPO DI DATO ASSE Y
oAxis1.Font.Name = "arial" 'tipo stile colore carattere asse y
oAxis1.Font.Bold = False
oAxis1.Font.Size = 8
oAxis1.Font.Color = RGB(255, 0, 0)
oAxis1.HasMajorGridlines = True 'VISUALIZZA GRIGLIA ASSE Y
oAxis1.MajorGridlines.Line.Color = RGB(86, 89, 89) 'COLORA LINEE
oAxis1.MajorGridlines.Line.Weight = 1 'spessore

'-----------------------------------------------------------------------------------------------

'SCALA ASSE X ******************************** N O N F U N Z I O N A *********************************
Set oAxis2 = NEWCHART.Axes(ChartConsts.chAxisPositionBottom) 'SCALA X

oAxis2.Scaling.Maximum = 7500
oAxis2.Scaling.Minimum = 6500
oAxis2.MajorUnit = 100

oAxis2.NumberFormat = "0.0"

oAxis2.Font.Name = "arial" 'tipo stile colore carattere asse y
oAxis2.Font.Bold = False
oAxis2.Font.Size = 8
oAxis2.Font.Color = RGB(255, 0, 0)

oAxis2.HasMajorGridlines = True
oAxis2.MajorGridlines.Line.Color = RGB(86, 89, 89) 'COLORA LINEE



End Sub

[piter123]

trovato, per regolarare la distanza delle linee di griglia asse x, nonchè delle etichette il codice è il seguente


Set oAxis2 = NEWCHART.Axes(ChartConsts.chAxisPositionBottom) 'SCALA X

'distanza linee
oAxis2.MajorUnit = 4

'distanza etichette
oAxis2.TickLabelSpacing = 4

'attiva e colora linne griglia asse x
oAxis2.HasMajorGridlines = True
oAxis2.MajorGridlines.Line.Color = RGB(86, 89, 89) 'COLORA LINEE

Saluti