Erreur lors de la définition PlotArea.Largeur dans Excel, VBA (Excel 2010)

Deux solutions qui semblent être au travail, ce n'est pas vraiment comme "élégant" que je préfère (j'espérais qu'il y aurait un moyen de le faire avec sélection le graphique en tout ou en partie).

Option 1 - Sélectionnez la zone de traçage et puis désélectionner. Ce qui semble être la plus fiable/solution efficace.

With .PlotArea
Application.ScreenUpdating = False
.Select
With Selection
.Width = paWidth
.Height = paHeight
.Left = paLeft
.Top = paTop
ActiveSheet.Range("A1").Activate
End With
Application.ScreenUpdating = True
End With

Option 2 - désactiver la gestion d'erreur en boucle (ce suivi de Doug lien). Cela ne semble pas être une très bonne ou une méthode efficace, et bien qu'il semble fonctionner, j'ai savoir qu'au sein de cette boucle est un échec une fois sur chacune des propriétés de avant de avec succès les met sur la passe suivante.

With .PlotArea
For pLoop = 1 To 5
On Error Resume Next
.Width = paWidth
.Height = paHeight
.Left = paLeft
.Top = paTop
On Error GoTo 0
Next
End With

OriginalL'auteur David Zemens

Espère que votre feuille et graphique a la capacité d'obtenir une largeur allant jusqu'à 640. Si donc, essayez la explicite de référence. Vous suggérons également de changer width, height valeurs à la baisse des valeurs et de voir comment le programme répond. Puisque vous l'avez dit, lorsque vous select il fonctionne,

• cela signifie également, votre cht est enveloppant le bon objet graphique - sauf que vous avez sélectionné le graphique à l'aide d' ActiveChart.PlotArea.Width . Donc je suppose référence explicite pourrait être un potentiel essayer.

,

cht.PlotArea.Width = 640
cht.PlotArea.Height = 280
cht.PlotArea.Left = 30
cht.PlotArea.Top = 30

Plus loin, vérifiez sur Aspect Ratio verrouiller ou déverrouiller. Si aucun de ces travaux, puis ajouter un graphique dans votre fiche et l'utilisation les plus simples de mise en forme de graphique de code pour vérifier sur widht, height, left, top changements.

---

Mise à jour de deux

Nous allons essayer d'en spécifiant un type de graphique et mise en place d'un objet graphique dans le deuxième sub. J'ai essayé dans ma fin, et ça fonctionne. Essayez le code avec les modifications suivantes.

Code:
L'appel de cette sous-dès que le bouton est montré dans la feuille.

Option Explicit
Public Sub EstablishChartObject()
Dim mySheet As Worksheet
Dim cObj As ChartObject
Application.ScreenUpdating = False
Application.StatusBar = "Chart is coming soon..."
Set mySheet = Sheets(2) '-- set according to yours
'-- create chart with some source data first, which you can change later
Set cObj = mySheet.ChartObjects.Add(Left:=30, Top:=30, Width:=400, Height:=200)
ChartSizeMedium cObj, "Integer", "Example Chart Title"
End Sub
'Subroutine to make a consistent size chart
Private Sub ChartSizeMedium(chtObj As ChartObject, NumType As String, _
Optional chtTitle As String)
Dim myChart As Chart
Dim s As Long
Set myChart = chtObj.Chart '-- specify chart type
myChart.SetSourceData Source:=Sheets(2).Range("B3:C12")  '-- set to what you have
myChart.ChartType = xlXYScatterLines  '-- set to the type you want 
'and make sure to **use correct properties**
With myChart
If .HasTitle Then
.ChartTitle.Characters.Text = chtTitle
End If
'Create the default chart Legend
If .HasLegend Then
With .Legend
.Position = xlTop
.Font.Size = 11
.Font.Bold = True
End With
End If
'Format the axes
With .Axes(xlValue)
.HasMajorGridlines = False
End With
'Format the size of the chart
With .Parent
.Width = 400 '-- change to yours
.Height = 250 '-- change to yours
End With
With .PlotArea
.Width = 300 '-- change to yours
.Height = 180 '-- change to yours
.Left = 30
.Top = 30
End With
End With
Application.ScreenUpdating = True
Application.StatusBar = "Chart is Here!"
End Sub

Otput:

Assurez-vous d'utiliser les bonnes propriétés pour chaque type de graphique. Notez que le code ci-dessus n'est pas de supprimer toute la gauche plus de, vieux graphiques à partir de votre feuille.

.MajoreGridlines.Format.Lines.Visible échoue. Le .MajorGridlines = False à assurez-vous que vous ne souhaitez pas afficher le quadrillage.
Autre chose que vous voulez faire peut être fait plus tard. Juste essayer avec les changements de dimension, d'abord.

De référence à partir de : MSDN Quadrillage de la propriété

OriginalL'auteur bonCodigo

EDIT: Cela semble fonctionner pour certains types de graphique, mais il était toujours à la peine pour d'autres types de graphiques. J'ai continué à utiliser le 5x boucle avec On Error Resume Next et qui semble, malheureusement, le plus "fiable" solution à ce jour.

Original: C'est basé sur User2140261 la réponse ci-dessus:

https://stackoverflow.com/a/16041640/1467082

Depuis que la question a d'abord été publié, l'application réside maintenant dans PowerPoint, je ne peux donc pas utiliser le Applicaiton.Wait. J'ai eu quelques erreurs intermittentes avec 1 seconde de pause, et 3 secondes était trop d'une pause, j'ai donc intégré l'erreur suivante piège. La même idée pourrait être utilisée dans Excel en conjonction avec Application.Wait.

C'était ce bloc de code qui me donnait des ajustements, j'ai donc ajouté cette erreur de manipulation dans Powerpoint pour imiter la Application.Wait.

RetryChartDimensions:
On Error GoTo ErrChartDimensions
With .PlotArea
.Width = paWidth
.Height = paHeight
.Left = paLeft
.Top = paTop
End With
On Error GoTo 0
' More code
' more code
Exit Sub 'gracefully exit this subroutine before the error-handling.'
ErrChartDimensions:
Err.Clear
'Pause before setting the PlotArea dimensions:'
Dim wtTime As Double
Dim startTime As Long
'A maximum 3 second delay should be more than enough time.
If wtTime < 3 Then
wtTime = wtTime + 0.5
startTime = Timer
While Timer < startTime + wtTime
DoEvents
Wend
End If
Resume RetryChartDimensions
End Sub

OriginalL'auteur David Zemens