Quando si crea un grafico Excel, come oggetto da posizionare in un foglio di lavoro, l’oggetto grafico viene ridimensionato automaticamente a una dimensione predeterminata selezionata da Excel. Potresti non volere che l’oggetto del grafico abbia la dimensione determinata da Excel; potresti volere che gli oggetti del grafico siano sempre di dimensioni standard, in modo che appaiano sempre uguali rispetto ai fogli di lavoro.

Non è possibile specificare la dimensione di un oggetto del grafico durante la creazione del grafico. È tuttavia possibile ridimensionare l’oggetto grafico dopo che è stato creato, così come è possibile ridimensionare altri elementi grafici del foglio di lavoro. È possibile scrivere una macro per creare l’oggetto con una dimensione particolare, ma così facendo si rimuoverà gran parte della flessibilità insita negli strumenti di creazione di grafici di Excel. Ad esempio, quando si specifica la dimensione dell’oggetto grafico da creare, è necessario specificare anche altre caratteristiche, come il tipo di grafico. È più facile selezionare e scegliere tali caratteristiche tramite gli strumenti sulla barra multifunzione piuttosto che farlo in una macro.

È tuttavia possibile creare facilmente una macro che ridimensionerà un oggetto del grafico esistente. I comandi chiave di una tale macro sarebbero la modifica delle proprietà Larghezza e Altezza per l’oggetto grafico. In VBA, queste proprietà sono specificate in punti. Pertanto, se si desidera ridimensionare l’oggetto del grafico in modo che fosse alto 4 pollici, impostare la proprietà Altezza su 288, che è il numero di punti in 4 pollici (4 * 72).

La seguente macro fornisce un esempio di un modo per scorrere tutti gli oggetti del grafico in un foglio di lavoro e renderli della stessa dimensione. Questa macro particolare imposta la larghezza di ogni oggetto del grafico su 4 pollici e l’altezza su 3 pollici.

Sub ResizeCharts()

For j = 1 To ActiveSheet.Shapes.Count         If ActiveSheet.Shapes(j).Type = msoChart Then             ActiveSheet.Shapes(j).Width = 4  72             ActiveSheet.Shapes(j).Height = 3  72         End If     Next j End Sub

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (8526) si applica a Microsoft Excel 2007, 2010, 2013 e 2016.

Puoi trovare una versione di questo suggerimento per la vecchia interfaccia del menu di Excel qui:

Specifying the Size of Chart Objects.