Moderatori: Anthony47, Flash30005
Sub PerWnG()
Dim nomeGr As String, I As Long, mySerie As String
'
nomeGr = "Grafico 2" '<<< Il nome del grafico
mySerie = "cc" '<<< Il Nome della serie in backgroud
ActiveSheet.ChartObjects(nomeGr).Activate
ActiveSheet.Shapes(nomeGr).Fill.Visible = msoFalse
ActiveChart.PlotArea.Select
With Selection.Format.Fill 'VEDI TESTO
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorBackground1
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
For I = 1 To ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(I).Format.Line.Visible = False
Next I
ActiveChart.SeriesCollection(mySerie).Format.Line.Visible = msoTrue
ActiveSheet.ChartObjects(nomeGr).Chart.Export ThisWorkbook.Path & "\pippo123" & ".jpg", "JPG"
For I = 1 To ActiveChart.SeriesCollection.Count
ActiveChart.SeriesCollection(I).Format.Line.Visible = msoTrue
Next I
ActiveChart.SeriesCollection(mySerie).Format.Line.Visible = msoFalse
With ActiveSheet.Shapes(nomeGr).Fill
.Visible = msoTrue
.UserPicture ThisWorkbook.Path & "\pippo123.jpg"
.TextureTile = msoFalse
End With
ActiveChart.PlotArea.Select
Selection.Format.Fill.Visible = msoFalse
ActiveSheet.ChartObjects(nomeGr).TopLeftCell.Select
End Sub
Torna a Applicazioni Office Windows
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
confrontare e evidenziare 2 fogli excel Autore: niccia |
Forum: Applicazioni Office Windows Risposte: 7 |
Visitano il forum: Nessuno e 11 ospiti