17. januar 2012 - 13:40Der er
9 kommentarer og 2 løsninger
Rette titel-tekst i diagram vha. vba virker ikke...
Hej Eksperter.
min VBA-kode virker ikke som den ellers har gjort en lang periode.
----- min VBA-kode ----- ActiveSheet.ChartObjects("Chart 1").Activate ActiveChart.ChartTitle.Select NewChartDate = Now Selection.Characters.Text = "Dagens skiftehold" & Chr(10) & Format(NewChartDate, "dddd dd-mm-yyyy") MsgBox "Dagens skiftehold" & Chr(10) & Format(NewChartDate, "dddd dd-mm-yyyy") Selection.AutoScaleFont = False With Selection.Characters(Start:=1, Length:=31).Font .Name = "Verdana" .FontStyle = "Fed" .Size = 10.5 .ColorIndex = xlAutomatic End With ----- / min VBA-kode -----
Jeg har tjekket med diverse msgbox'e at koden bliver afviklet som forventet og det fejler ikke noget.
Jeg kan også teste at chart bliver selected, og cartTitle bliver selected, men hvad kan der ellers være galt - har virket tidligere, også efter jeg har pågraderet til Win7 og til Office/Excel 2010
Jeg har testet din kode og tilsyneladende bliver Titlen indtastet korrekt i diagrammet, men formateringen kommer ikke med. Hvis du efter at have kørt koden aktivere Titlen i dit diagram og vælger Automatisk formatering af Teksten, så kommer din Titel frem. Jeg tror der er en fejl i xl konstanten "XlAutomatic". For hvis jeg eks. angiver en anden værdi f.eks. 1, så kommer Titlen korrekt frem med den valgte formattering.
Thorps kode burde virke fint, men her er mit bud med et par småændringer. Hvis der ikke er en titel indsættes der en (hastitle=true) Fontstyle="Fed" virker kun på dansk, derfor ændret til .bold=true
With ActiveSheet.ChartObjects("Chart 1").Chart .HasTitle = True With .ChartTitle .AutoScaleFont = False .Text = "Dagens skiftehold" & Chr(10) & Format(Date, "dddd dd-mm-yyyy") MsgBox .Text, vbInformation With .Font .Name = "Verdana" .Bold = True .Size = 10.5 .ColorIndex = 1 End With End With End With
Ved fælles hjælp har i hjulpet mig frem til løsningen.
"Guldkornet" der løste de drillerier som jeg oplevede med at min kode pludselig ikke virkede længere, var iflg. mine tests, Baks forslag om at tilføje linien: .HasTitle = True til min kode. For da først tilten af en eller anden grund var blevet slettet, kunne den hidtidige kode ikke få rettet op på problemet... Tak Bak - smider du også lige et svar, så vil jeg fordele points...
Jeg har fordelt points hårdt men retfærdigt, ud fra under hensyntage til at det var Bak der leverede det afgørende guldkorn. Tak til alle der angagerede sig i problemløsningen...
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
