Radiobutton select, ander venster

[bartwebdesign]

Ik wil graag in VBA een soort van wizard maken, nu wil ik op het eerste venster een selectlijstje maken met radiobuttons. Dus als ze bijv. Logo invoegen, dat dan een venster verschijnt, waar mijn logo's in staan. Die ik dan kan kiezen.

Hoe doe ik dat?

 

[Kramer]

Simpel gezegt.

If Optionbutten(naam van je knop) = true then
Hide Userfrom (naam van Userform)
show UsefromLogo
else
end if

Ik denk zo iets

 

[bartwebdesign]

Bij mij geeft hij een foutmelding:

Complimeerfout:

Sub of Function is niet gedefinieerd

Wat doe ik fout?

 

[Kramer]

Sorry vergeten te zeggen waar je dit moet neer zeggen.

Als je een userform scherm hebt gemaakt neem ik aan dat je ook een opdrachtknop op je userform hebt gezet. Als je in de VBA editor dan daar op dubbelklikt daar moet je het neer zetten.

 

[Kramer]

Hier heb je een bijlage zoals de code eruit er mogelijk uit zou moeten zien.

Als je op het wolkje druk krijg je een userform voor je neus.

 

[bartwebdesign]

Perfect.

Nu wil ik een code, waarmee ik snelteksten kan invoeren die dat al klaar staan, in een selectbox.

 

[Kramer]

bedoel je autoteksten

 

[bartwebdesign]

Ja, maar hoe krijg ik die in een selectbox?

 

[Kramer]

Dat moet je niet in een tekstvak zetten. Het handigste is een macro opnemen met de handelingen om de autotekst op de juiste plek te zetten.
Iets in de trend van.

Ga naar bladwijzer ....
en zet daar autotekstfragment ... neer

En dan laat je de mensen in een Userform kiezen door optionbutton. En die roept dan weer de macro aan die je hebt op genomen voor de autotekst.

 

[bartwebdesign]

Wat is die code?

 

[Kramer]

code

iets in de geest van dit

Sub autotekst()
'
' autotekst Macro
' Macro opgenomen op 9-11-2006 door Gregor Kramer
'
Selection.GoTo What:=wdGoToBookmark, Name:="test"'Hier moet je eigen naam van je bladwijzer komen te staan
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
NormalTemplate.AutoTextEntries("Met vriendelijke groet,").Insert Where:= _
Selection.Range, RichText:=True
End Sub

En bij met vriendelijk groet je eigen autotekstfragment

 

[bartwebdesign]

Ik snap het niet helemaal, heb je misschien een voorbeeld

 

[bartwebdesign]

Laat maar, het is al gelukt.

Voor de andere die dit ook willen.

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Selection.InlineShapes.AddPicture FileName:= _
        "E:\site\Site1\Logo's\logo-03g.gif" _
        , LinkToFile:=False, SaveWithDocument:=True
Else
End If
If OptionButton2 = True Then
Selection.InlineShapes.AddPicture FileName:= _
        "E:\site\Site1\Logo's\logonieuw.gif" _
        , LinkToFile:=False, SaveWithDocument:=True
Else
End If
End Sub

 

[Axel Hagg]

Radiobutton select

Als je het echt mooi wilt doen:

Private Sub CommandButton1_Click()
Dim s as string

If OptionButton1.Value Then
s="logo-03g.gif"
ElseIf OptionButton2.Value Then
s="logonieuw.gif"
End If
If Len(s) then Selection.InlineShapes.AddPicture FileName:=_
"E:\site\Site1\Logo's\" & s & ".gif", LinkToFile:=False, SaveWithDocument:=True
End Sub

Nog korter?

Private Sub CommandButton1_Click()
Selection.InlineShapes.AddPicture FileName:=_
"E:\site\Site1\Logo's\" & IIf (OptionButton1.Value, "logo-03g", "logonieuw.gif") & ".gif", _
LinkToFile:=False, SaveWithDocument:=True
End Sub