grafico su userform

Question

Buongiorno a tutti,

sto impazzendo da due giorni per cercare qualche codice che mi facesse visualizzare un grafico sul foglio di excel su una userform.

Ad ora non ho trovato niente, qualcuno ha mai fatto una cosa del genere? E' possibile? Se si come devo fare?

Anticipatamente ringrazio

Saluti

Giuseppe

Answer 1

Ciao Giuseppe,

Se la tua intenzione fosse che il grafico sulla Userform sia aggiornato in corrispondenza con la modifica dei suoi dati sottostanti, per dimostrare un approccio che potrebbe essere di interesse, prova quanto segue:

• Sul foglio di interesse, ad esempio il foglio Calcolo del file discusso in un tuo thread recente, crea un grafico, Chart1
• Nel modulo di codice del foglio, incolla il seguente codice:

'=========>>

Option Explicit

'--------->>

Private Sub Worksheet_Calculate()

    If Not bFlag Then

        Exit Sub

    End If

    Unload UserForm1

    UserForm1.Show vbModeless

End Sub

'<<=========

Crea una useform (Userform1) con un controllo Image (Image1) e un controllo CommandButton (cbEsci))

In un modulo standard, incolla il seguente codice:

'=========>>

Option Explicit

Public bFlag As Boolean

'--------->>

Public Sub DisplayUserform()

    bFlag = True

    UserForm1.Show vbModeless

End Sub

'<<=========

Nel modulo di codice della Userform incolla:

'=========>>

Option Explicit

'--------->>

Private Sub cbEsci_Click()

    Unload Me

    bFlag = False

End Sub

'--------->>

Private Sub UserForm_Initialize()

Dim WB As Workbook

Dim SH As Worksheet

    Dim myChart As Chart

    Dim sFileName As String

    Set WB = ThisWorkbook

    Set SH = WB.Sheets("Calcolo")

    Me.StartUpPosition = 0

    Set myChart = SH.ChartObjects(1).Chart

    sFileName = WB.Path & "\Temp.gif"

    myChart.Export Filename:=sFileName, FilterName:="GIF"

    Me.Image1.Picture = LoadPicture(sFileName)

End Sub

'--------->>

Private Sub UserForm_Activate()

    AppActivate Application.Caption

End Sub

'<<=========

Ho caricato il mio file di prova Giuseppe20160228.xlsm a:

https://www.dropbox.com/s/nlksupa8jaz93n1/Giuseppe20160228.xlsm?dl=0

===

Regards,

Norman

Answer 2

Ciao Giuseppe,

Ti ringrazio per il cortese riscontro.

Alla prossima.

===

Regards,

Norman

Answer 3

Grazie Norman, era proprio ciò che mi serviva.

Siete eccezionali.

Buona Domenica

Giuseppe

Answer 4

Ciao Mauro,

sono riuscito a visualizzare il grafico sulla userform ma nonostante abbia impostato la proprietà showmodal della userform su false, non riesco ad aggiornare i dati del grafico quando aggiorno i dati sul foglio excel.

Ho saltato qualche passaggio?

Grazie e preziosi come sempre.

Saluti

Giuseppe

Answer 5

Ad esempio:

• http://microsoft.public.it.office.excel.narkive.com/DWPY4zaN/grafico-e-userform