Grafico Excel con oggetto shape

Hai un problema con Excel?

Nuova discussione

Grafico con shapes
di Tod (utente non iscritto) data: 25/02/2009
Innanzitutto grazie per il suggerimento ricevuto nella discussione precedente.
avrei ancora bisogno di un chiarimento per quanto riguarda il codice che vi propongo.
da vba (qui sotto riportata) voglio creare un grafico per rappresentare i miei dati. vorrei poter inserire un pulsante o una shapes con macro associata per poter tornare alla cella a1 del foglio1 (nella macro sotto riportata il codice inerente è quello tra le due righe di asterischi.
purtroppo però la macro non crea nè la shapes e tantomeno l'associazione della macr, mentre se creo manualmente il tutto funziona. mi potreste aiutare in questo.
ancora grazie e complimenti.

Sub CreaGrafico()
Application.DisplayAlerts = False
On Error Resume Next
Sheets("Grafico1").Delete
Sheets("Servizio").Select
Range("AA7").Select
  ActiveSheet.PivotTables("Tabella_pivot2").PivotCache.Refresh
  Charts.Add.Name = "Grafico1"
    ActiveChart.SetSourceData Source:=Sheets("Servizio").Range("AA7")
    ActiveChart.Location Where:=xlLocationAsNewSheet
    ActiveChart.ChartArea.Select
    ActiveChart.ChartType = xl3DColumn
    
    
        Sheets("Grafico1").Select

 '*********************************************   
ActiveChart.Shapes.AddShape(msoShapeRoundedRectangle, 663.4, 35.53, 53.97, _
        26.97).Select
    Selection.Characters.Text = "Esce"
    Selection.AutoScaleFont = False
    With Selection.Characters(Start:=1, Length:=4).Font
        .Name = "Arial"
        .FontStyle = "Normale"
        .Size = 14
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .ReadingOrder = xlContext
        .Orientation = xlHorizontal
        .AutoSize = False
    End With
      
       Selection.OnAction = "Produttività"
Sheets("Grafico1").Move After:=Sheets("Presenze")
'*************************************************    
    
    
    
    ActiveChart.Deselect
    Range("A1").Select
End Sub

di Ricky53 data: 26/02/2009
Ciao,
è troppo grande il valore

"663.4" e punta fuori dal grafico a destra.
prova con "363.4"

ciao da ricky53
Tod
di Grafico con shapes (utente non iscritto) data: 26/02/2009
Ciao ricky, ho provato con diversi valori, ma nel foglio del grafico non compare la shapes o clipart od altro. se può aiutare io lavoro su un pc portatile 17" a 1440x900. ho anche provato a cabiare la risoluzione, ma niente da fare.
hai qualche altro suggerimento?
grazie
di Ricky53 data: 26/02/2009
Ciao,

prima di rispnderti ho fatto le prove partendo da 1, per valori sempre maggiori la "shappe" si spostava verso destra fino a sparire.
prova con valori piccoli: "1" a salire. questo valore è lo spostamento verso destra rispetto all'inizio sinistro del grafico.

prova anche su un altro pc anche se non influenza.

ciao da ricky53

Vuoi Approfondire?