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

Kodeord


Reklame
Top 10 brugere
MS-Office
#NavnPoint
sion 18709
refi 14474
Klaudi 9389
Rosco40 5695
berpox 5456
dk 5398
webnoob 4919
Benjamin... 4870
o.v.n. 4637
10  EXTERMINA.. 4373
Afkrydsningsfelt i VBA
Fra : meiland
Vist : 930 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 : 177409
Tips : 31962
Nyheder : 719565
Indlæg : 6407779
Brugere : 218874

Månedens bedste
Årets bedste
Sidste års bedste