Excel 2003: Problem mit Makro

Seite 1 von 1 - Forum: Applications, Apps & Drivers auf overclockers.at

URL: https://www.overclockers.at/applications/excel_2003_problem_mit_makro_190556/page_1 - zur Vollversion wechseln!

Ich habe ein kleines Problem mit einem 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

up Und gleich noch ein Problem



Die Felder bzw. Variablen werden von einem SAP Interface geladen (oder sollten das zumindest), wo kann da der Fehler liegen dass mir anstatt den Werten nur mehr die Funktionen und Variablen angezeigt werden? Ist das Einstellungssache in Word?

Abermals tia

edit: Es handelt sich um SAP-OLE Links.

Up.

Das zweite Problem habe ich gelöst (Felder geschützt), aber das Makro würde noch immer den Feinschliff benötigen

Mein letzter Versuch - vielleicht weiß ja jemand was

passt ja fast schon ins coding stuff, vielleicht kann dir dort geholfen werden http://www.ms-office-forum.net

Mfg fEW

Danke für den Tipp, auf die Seite bin ich per Google noch nie gestoßen wenn ich mal wieder ein Problem mit Office hatte

Nach wie vor besteht ersteres Problem - das Makro bekomm ich eifnach nicht hin. Weiß evtl. jemand Rat?

Da ich auch auf oc.at ein paar Office Füchse erwarte - ein neues Problem bzw. eine neue Aufgabenstellung:

Ich möchte die Kommentare von bestimmten Zellen in die Zellen in einer anderen Arbeitsmappe kopieren...

Code:

Sub CopyComments()
  Dim cell As Range
  
  For Each cell In Selection
      If Not cell.Comment Is Nothing Then
        cell.Offset(0, 1).Value = cell.Comment.Text
      End If
  Next
End Sub

Code:

Public Function Kommentar(Zelle As Range) As String
Application.Volatile
If Zelle.Cells.Count <> 1 Then Exit Function

On Error GoTo Fehler
Kommentar = Zelle.Comment.Text
Exit Function

Fehler:
Kommentar = ""
End Function

Anyone?

overclockers.at v4.thecommunity
© all rights reserved by overclockers.at 2000-2026