For each optionbutton

ret
OptionButton.Caption
til
opt.Caption

Nu kan der jo være forskel på .caption og dens virkelige navn
det du ser er .caption, men det andet er .name

Prøv dette:
Sub testOptionButtons()
Dim opt
    For Each opt In ActiveWorkbook.Sheets("Budget").Shapes
    navn = opt.Name

'    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton.Caption & ".pdf"
'    Call PrinttoPDF
    Next

End Sub

denne giver. caption, selv om jeg synes den er lang

Dim opt, Cap
    For Each opt In ActiveWorkbook.Sheets("Budget").Shapes
   
  Cap = ActiveWorkbook.Sheets("Budget").OLEObjects(opt.Name).Object.Caption

Det virker ikke rigtig.

Dim opt
    For Each opt In ActiveWorkbook.Sheets("Budget").Shapes
    navn = opt.Name
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & navn & ".pdf"
    Call PrinttoPDF
    Next

Den kører hvis jeg bruger F8 hele vejen igennem men ikke hvis den selv skal kører.

Kabbak - jeg vil helst have caption, men den melder fejl på:
Cap = ActiveWorkbook.Sheets("Budget").OLEObjects(opt.Name).Object.Caption

Dette virker, men det er jo noget rod:

OptionButton1 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton1.Caption & ".pdf"
    Call PrinttoPDF
OptionButton2 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton2.Caption & ".pdf"
    Call PrinttoPDF
OptionButton3 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton3.Caption & ".pdf"
    Call PrinttoPDF
OptionButton4 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton4.Caption & ".pdf"
    Call PrinttoPDF
OptionButton9 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton9.Caption & ".pdf"
    Call PrinttoPDF
OptionButton5 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton5.Caption & ".pdf"
    Call PrinttoPDF
OptionButton6 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton6.Caption & ".pdf"
    Call PrinttoPDF
OptionButton7 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton7.Caption & ".pdf"
    Call PrinttoPDF
OptionButton11 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton11.Caption & ".pdf"
    Call PrinttoPDF
'[O4].Select
OptionButton12 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton12.Caption & ".pdf"
    Call PrinttoPDF
'[O4].Select
OptionButton8 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton8.Caption & ".pdf"
    Call PrinttoPDF
OptionButton10 = True
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & OptionButton10.Caption & ".pdf"
    Call PrinttoPDF

Ligesom denne vel kan laves smartere:

Sub Vælg_alle()
OptionButton1 = True
OptionButton10 = True
OptionButton2 = True
OptionButton3 = True
OptionButton4 = True
OptionButton5 = True
OptionButton6 = True
OptionButton7 = True
OptionButton8 = True
OptionButton9 = True
OptionButton11 = True
OptionButton12 = True
OptionButton1 = True
End Sub

denne kører fint hos mig.

Dim opt, Navn
    For Each opt In ActiveWorkbook.Sheets("Budget").Shapes
    Navn = ActiveWorkbook.Sheets("Budget").OLEObjects(opt.Name).Object.Caption
    strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & Navn & ".pdf"
    Call PrinttoPDF
    Next

Når jeg kopiere din kode direkte ind, får jeg følgende fejl:

Run-time error '1004':
Application-defined or object-defined error i linien
    Navn = ActiveWorkbook.Sheets("Budget").OLEObjects(opt.Name).Object.Caption

Mangler jeg ikke at definere "opt" ved den hvad opt er ???

Har du andre Shapes på siden ud over OptionButtons, streger, tekstbokse eller andet grafisk ??

Jeg har checkboxe, optionsbuttons og commandbutton, så ja.....

Alle mine optionsbuttons er grupperet med Groupname "Pivot" - kan det bruges ??

Hvis du ikke har omdøbt dine OptionButtons, så burde denne virke

Dim opt, Navn
    For Each opt In ActiveWorkbook.Sheets("Budget").Shapes
        If LCase(Left((opt.Name), 3)) = "opt" Then
          Navn = ActiveWorkbook.Sheets("Budget").OLEObjects(opt.Name).Object.Caption
            strFileName1 = "C:\Documents and Settings\MIVE\Skrivebord\PDF\budgetopflg\" & Navn & ".pdf"
            '  Call PrinttoPDF
        End If
    Next

Hvis jeg skriver debug.print opt.Name for jeg følgende:

Drop Down 1
Drop Down 2
Drop Down 3
cmdInfo
Drop Down 37
Drop Down 75
Group 163
Group 171
Drop Down 38

Jeg ved ikke hvad "drop down" er, da jeg ikke har andet en en gruppe optionsbutton på 13 stk. og en gruppe checkboxe på 17 stk samt en commandbutton. Det kunne tyde på Group 153 og group 171 samt cmdinfo.

Hvordan fanger jeg dem så?

Mhhhh ingen der ved, hvordan jeg kan fange opitonbuttons i en gruppe jf. ovenstående ??

Lukket