Edgar,
It worked fine for me. Where do you get the error?
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Edgar" <(E-Mail Removed)> wrote in message
news:1708d01c417cb$b00d5440$(E-Mail Removed)...
> Hi
>
> I found a wb last year called menushen which reverses the
> text of all excel menus, I thought I would send it to a
> few colleagues today for a joke but it isnt working
> anymore. It reverses the first menu ie FILE but stops
> after that with the error Object doesnt support this
> method?
>
> If anyone has time can you let me know whats happening
>
> TIA
>
> Private Sub Workbook_Open()
> On Error Resume Next
> For Each m1 In Application.CommandBars(1).Controls
> m1.Caption = Reverse(m1.Caption)
> For Each m2 In m1.Controls
> m2.Caption = Reverse(m2.Caption)
> For Each m3 In m2.Controls
> m3.Caption = Reverse(m3.Caption)
> Next m3
> Next m2
> Next m1
> End Sub
>
>
>
>
> Sub ReverseMenuText()
> On Error Resume Next
> For Each m1 In Application.CommandBars(1).Controls
> m1.Caption = Reverse(m1.Caption)
> For Each m2 In m1.Controls
> m2.Caption = Reverse(m2.Caption)
> For Each m3 In m2.Controls
> m3.Caption = Reverse(m3.Caption)
> Next m3
> Next m2
> Next m1
> End Sub
>
> Sub ResetMenu()
> Application.CommandBars(1).Reset
> End Sub
>
> Function Reverse(MenuText As String) As String
> ' Returns menu item, backwards with original hot key
> Dim Temp As String, Temp2 As String
> Dim ItemLen As Integer, i As Integer
> Dim HotKey As String * 1
> Dim Found As Boolean
>
> ItemLen = Len(MenuText)
> Temp = ""
> For i = ItemLen To 1 Step -1
> If Mid(MenuText, i, 1) = "&" Then _
> HotKey = Mid(MenuText, i + 1, 1) _
> Else Temp = Temp & Mid(MenuText, i, 1)
> Next i
>
> ' Convert reversed string to Proper case
> Temp = Application.Proper(Temp)
>
> ' Insert & for hot key
> Found = False
> Temp2 = ""
> For i = 1 To ItemLen - 1
> If UCase(Mid(Temp, i, 1)) = UCase(HotKey) And Not
> Found Then
> Temp2 = Temp2 & "&"
> Found = True
> End If
> Temp2 = Temp2 & Mid(Temp, i, 1)
> Next i
>
> ' Transfer ellipses to end of string
> If Left(Temp2, 3) = "..." Then Temp2 = Right(Temp2,
> ItemLen - 3) & "..."
>
> Reverse = Temp2
> End Function
>
|
Similar Threads
