Új hozzászólás Aktív témák

• #15213 Attas aktív tag sztanozs #15212

  Új Válasz 2012-10-11 08:12:05 #15213

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Attas

  aktív tag

  válasz sztanozs #15212 üzenetére

  Szia Sztanozs!
  Mit ronthatok el? Nem működik valamiért. Futtatáskor ennél a sornál ír hibát:
  Sheet1.ChartObjects("Diagram 8").Activate

  Pedig a Diagram 8 a veve a rajzterületnek.
  A hiba pedig: Object required

  Sub KimDiagSzín()
  '
  ' KimDiagSzín Makró
  
  Sheet1.ChartObjects("Diagram 8").Activate
  Dim val()
  val = ActiveChart.SeriesCollection(1).Values
  Dim ix
  For ix = 1 To ActiveChart.SeriesCollection(1).Points.Count
  If val(ix) > 60 Then
  ActiveChart.SeriesCollection(1).Points(ix).Select
  With Selection.Format.Fill
  .Solid
  .Visible = msoTrue
  .ForeColor.RGB = RGB(255, 0, 0)
  .Transparency = 0
  End With
  End If
  Next
  End Sub

Új hozzászólás Aktív témák