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

• #15212 sztanozs veterán Attas #15211

  Új Válasz 2012-10-10 21:24:39 #15212

  Ú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

  

  sztanozs

  veterán

  válasz Attas #15211 üzenetére

  Az aláhúzott résznél adod meg mennyinél kell nagyobb (vagy kisebb, vagy bármilyen) legyen.

  Sub Macro1()
  Sheet1.ChartObjects("Chart 1").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