Excel - bytte ut tekst i avmerkingsbokser

[Kaplan]

Jeg skal oversette et excelark fra engelsk til norsk, og bruker søk- og erstatt-funksjonen mye til dette. Jeg har oversatt det meste nå, men har en haug med avmerkingsbokser hvor man skal krysse av for ulike valg. Det er snakk om et par hundre bokser, tre og tre med tekst high/medium/minor (se bilde). Vet noen hvordan jeg kan endre teksten i alle i en smell? Søkefunksjonen i excel tar ikke disse, nemlig...

 

[Horge]

Jeg hadde nok forsøkt med en makro som looper gjennom alle boksene. Hvis teksten = "high", så sett teksten = "høy" etc.

 

Edit: Måtte gjøre en kjapp test for å se at jeg fikk det til å virke selv, og denne koden skal gjøre susen (merk: den tar kun boksene i det aktive arket):

 

Sub renameCheckbox()
Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes

	ActiveSheet.Shapes.Range(Array(Shp.Name)).Select

	If Selection.Characters.Text = "high" Then
		Selection.Characters.Text = "høy"
	End If

	If Selection.Characters.Text = "medium" Then
		Selection.Characters.Text = "middels"
	End If

	If Selection.Characters.Text = "minor" Then
		Selection.Characters.Text = "lav"
	End If

Next
End Sub

Endret 30. april 2012 av Horge