Solved: Remember last saved toolbar position

[Tommy]

I found this here :http://www.freevbcode.com/ShowCode.asp?ID=5390

I modified the form code for a public function so all you should have to do is call these 2 functions with the modules included.

Sub SaveSettingIni(iToolBar As CommandBar)
    With iToolBar
    WriteIniValue "C:\Program Files\Microsoft Office\OFFICE11\ADDINS" & "\MyADDIN.ini", "Settings", "Position", CStr(.Position)
    WriteIniValue "C:\Program Files\Microsoft Office\OFFICE11\ADDINS" & "\MyADDIN.ini", "Settings", "RowIndex", CStr(.RowIndex)
    WriteIniValue "C:\Program Files\Microsoft Office\OFFICE11\ADDINS" & "\MyADDIN.ini", "Settings", "Left", CStr(.Left)
    WriteIniValue "C:\Program Files\Microsoft Office\OFFICE11\ADDINS" & "\MyADDIN.ini", "Settings", "Top", CStr(.Top)
    End With
End Sub

Sub WriteSettingIni(iToolBar As CommandBar)
    With iToolBar
    .Position = Val(ReadIniValue( "C:\Program Files\Microsoft Office\OFFICE11\ADDINS" & "\MyADDIN.ini", _
    "Settings", "Position"))
    .RowIndex = Val(ReadIniValue( "C:\Program Files\Microsoft Office\OFFICE11\ADDINS" & "\MyADDIN.ini", _
    "Settings", "RowIndex"))
    .Left = Val(ReadIniValue( _"C:\Program Files\Microsoft Office\OFFICE11\ADDINS" & "\MyADDIN.ini", _
    "Settings", "Left"))
    .Top = Val(ReadIniValue( "C:\Program Files\Microsoft Office\OFFICE11\ADDINS" & "\MyADDIN.ini", _
    "Settings", "Top"))
    End With
End Sub

Let me know if you need more help.