Har du set hvor smart det kan være?

• Word - Smart Office Skabelon system
• Word - Søg og erstat i flere dokumenter
• Excel - File Export
• Excel - Data Management (Freeware)

SmartOffice - CommandButtonsOnWorksheet

Public Sub CommandButtonsOnWorksheet()
'Flemming Vadet, juli 2002, fv@smartoffice.dk
    Dim iCount As Integer
    Dim objOLE As OLEObject
    
    For Each objOLE In Worksheets("Sheet1").OLEObjects
        With objOLE
            If .OLEType = xlOLEControl Then
                .Height = 21
                .Width = 60
            End If
        End With
    Next objOLE
End Sub