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

• #28659 Delila_1 veterán coldfirexx #28629

  Új Válasz 2015-09-16 17:57:23 #28659

  Ú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

  

  Delila_1

  veterán

  válasz coldfirexx #28629 üzenetére

  A lenti makró a lapon lévő diagramok címéből eltünteti a "0%" szövegrészt.

  Sub NullaNyet()
  Dim CV As Integer, szoveg As String
  
  For CV = 1 To ActiveSheet.ChartObjects.Count
  ActiveSheet.ChartObjects(CV).Activate
  szoveg = ActiveChart.ChartTitle.Characters.Text
  szoveg = Application.WorksheetFunction.Substitute(szoveg, "0%", "")
  
  ActiveChart.ChartTitle.Characters.Text = szoveg
  Next
  End Sub

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