macro werkt in excel 2003 maar niet meer in excel 2010

[HSV]

De code zou hier niet over moeten struikelen toch?
Dit zijn geen shapes, maar objecten.
Om die te tellen gebruik je ander code.

Om zeker te weten of je die wil tellen wacht ik even af of je die bedoeld.
Begrijp het helaas niet; Er is ook geen code meer.

 

[bjornesto]

Ja dat dacht ik ook maar het is raar zonder die objecten werkt u code dus zal nog is zoeken hoe ik dat kan omzeilen dat hij die niet mee neemt of negeert

 

[bjornesto]

Precies dat je nu alles moet benoemen in Excel 2010 wat er moet gebeuren is wel niet echt handig vind ik.

 

[HSV]

Ik heb de objecten even naar het ander bestand gekopieerd; Geen probleem met de code.

 

[bjornesto]

HSV

Ik heb het in orde gekregen. Vele malen dank om mij te helpen heb wel iets moeten veranderen anders lukte het niet hier

Private Sub CommandButton1_Click()
Dim Findwhat As String, tb As Shape, a
Findwhat = InputBox("Find what?")
On Error Resume Next
 If Findwhat = "" Then Exit Sub
  For Each tb In ActiveSheet.Shapes
 If tb.AutoShapeType = msoShapeRectangle Then
    If InStr(1, tb.TextFrame.Characters.Text, Findwhat) > 0 Then
         With tb.TextFrame.Characters(Start:=l, Length:=Len(Findwhat)).Font
         .Name = "Arial"
         .Size = 10
         .Underline = xlUnderlineStyleSingle
         .Bold = True
         End With
       End If
      End If
    Next
End Sub

Private Sub CommandButton2_Click()
Dim Findwhat As String
On Error Resume Next
  For Each tb In ActiveSheet.Shapes
   If tb.AutoShapeType = msoShapeRectangle Then
         With tb.TextFrame.Characters.Font
           .Name = "Arial"
           .Size = 8
           .Underline = xlUnderlineStyleNone
           .Bold = False
         End With
      End If
    Next
End Sub