Excel 2003: Problem mit Makro

Code:

Option Explicit

Sub InsertPicture()
    
   Dim sPath As String
   Dim sBildPfad As String
   Dim lRes As Long
    
   'Hier den Pfad eingeben von wo aus die Bilder geöffnet werden sollen
   sBildPfad = "C:\Dokumente und Einstellungen\mihinte\Desktop\cair"
    
   'aktuellen PicturePfad merken
   sPath = Options.DefaultFilePath(Path:=wdPicturesPath)
    
   'Bildpfad ändern
   Options.DefaultFilePath(Path:=wdPicturesPath) = sBildPfad
      
   'Dialog öffnen
   lRes = Application.Dialogs(wdDialogInsertPicture).Show
    
   'Pfad zurücksetzten
   Options.DefaultFilePath(Path:=wdPicturesPath) = sPath
    
   If lRes <> 0 And ActiveDocument.InlineShapes.Count > 0 Then
      'wenn bild eingefügt wurde, dann Bildgrösse anpassen
      Call BildGroesse(ActiveDocument.InlineShapes(ActiveDocument.InlineShapes.Count))
   End If
    
End Sub

Sub BildGroesse(oPic As InlineShape)
   Dim iScale As Single
   Dim iBreite As Single

   iBreite = 188 'Bildgrösse in Pixel

   oPic.LockAspectRatio = msoTrue
   ' Skalierungsfaktor in Pixel für Breite festlegen
   iScale = (iBreite / oPic.Width) * 100
   oPic.ScaleWidth = iScale
   oPic.ScaleHeight = iScale
End Sub