/ Forside/ Teknologi / Administrative / MS-Office / Spørgsmål
Login
Glemt dit kodeord?
Brugernavn 

Kodeord  


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18609
refi 14474
Klaudi 8489
Rosco40 5695
berpox 5456
dk 5398
Benjamin... 4870
webnoob 4747
o.v.n. 4637
10  EXTERMINA.. 4373
Afkrydsningsfelt i VBA
Fra : meiland
Vist : 804 gange
150 point
Dato : 11-05-05 23:40

Hej !

I nedenstående kode opretter jeg et afkrydsningsfelt i mit word dokument, på baggrund af en evt. afkrydsning i en form.

Det fungerer fint, men feltet skal bare være mindre, svarende til en teksthøjde=5. Hvordan gøres dette ???

Selection.GoTo what:=wdGoToBookmark, Name:="Checkbox1"
Selection.Collapse Direction:=wdCollapseEnd
Set ffield = ActiveDocument.FormFields _
.Add(Range:=Selection.Range, Type:=wdFieldFormCheckBox)
With ffield
.Name = "Check_Box_1"
If CheckBox1.Value = True Then
.CheckBox.Value = True
Else
.CheckBox.Value = False
End If
.StatusText = ""
End With

 
 
Kommentar
Fra : hvaderikkeibrug


Dato : 12-05-05 06:46

Højreklik på feltet, vælg "formater kontrolelement" og derefter "størrelse".

Kommentar
Fra : meiland


Dato : 12-05-05 12:40

Ja, det kan jeg også godt finde ud af, men hvordan skal koden være ??

Min skabelon (følgebrev) kalder en form med 14 afkrydsningsfeltet. Det er ikke en løsning at ændre størrelse via "højre-klik...".

Prøv igen.

Kommentar
Fra : berpox


Dato : 12-05-05 18:03

Indsætte denne kode efter din sidste "End With"

Kode
With ActiveDocument.FormFields("Check_Box_1").CheckBox
.AutoSize = False
.Size = 5
.Value = True
End With


Så skulle det virke

mvh berpox

Accepteret svar
Fra : berpox

Modtaget 150 point
Dato : 12-05-05 18:04

den samlede kode kommer altså til at se således ud:
Kode
Selection.GoTo what:=wdGoToBookmark, Name:="Checkbox1"
Selection.Collapse Direction:=wdCollapseEnd
Set ffield = ActiveDocument.FormFields _
.Add(Range:=Selection.Range, Type:=wdFieldFormCheckBox)
With ffield
.Name = "Check_Box_1"
If CheckBox1.Value = True Then
.CheckBox.Value = True
Else
.CheckBox.Value = False
End If .StatusText = ""
End With

With ActiveDocument.FormFields("Check_Box_1").CheckBox
.AutoSize = False
.Size = 5
.Value = True
End With


mvh berpox

Godkendelse af svar
Fra : meiland


Dato : 13-05-05 11:20

Tak for svaret berpox.
                        

Du har følgende muligheder
Eftersom du ikke er logget ind i systemet, kan du ikke skrive et indlæg til dette spørgsmål.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.
Søg
Reklame
Statistik
Spørgsmål : 173469
Tips : 31650
Nyheder : 719565
Indlæg : 6382414
Brugere : 218248

Månedens bedste
Årets bedste
Sidste års bedste