Hallo zusammen,
ich würde gerne in Excel Bilder als Kommentar hinzufügen. Im Augenblick mache ich dass folgendermaßen: (Evtl. weichen die Namen ein bisschen ab, da ich die englische Version benutze)
- Einfügen -> Kommentar
- rechter mausklick auf den Kommentar -> Kommentar bearbeiten
- Tab „Farben und Linien“
- Farbe -> Fülleffekte
- Tab Bild
- Bild auswählen
- Einfügen
- Ok
- Ok
Lässt sich dieser Vorgang irgendwie automatisieren? Z.B. ein Symbol in einer Toolbar hinzufügen, mit dem ich einfach bis zu dem Punkt „Bild auswählen“ komme?
Über ein Makro?
Ich bin auch gewillt dies selber zu versuchen, bräuchte allerdings für den Anfang eine kleine Hilfestellung…
vielen Dank schonmal.
mfG,
erdbrink
Hallo, erdbrink!
Gehe auf „Extras“-„Makros“-„Makro aufzeichnen“, mache genau das, was Du willst, inklusive Auswahl eines Bildes. Dann „Extras“-„Makros“-„Aufzeichnung beenden“. Somit hast Du schon mal das Grundgerüst. Jetzt „nur noch“ einen Datei-öffnen-Dialog vorher aufrufen und den Dateinamen an die Stelle des durch die Aufzeichnung hart verdrahteten Dateinamen setzen, und Du hast alles. Diese Funktion kannst Du dann aufrufen und somit auch in eine Menü-/Symbolleiste einbauen…
Gruß, Manfred
ich würde gerne in Excel Bilder als Kommentar hinzufügen. Im
Augenblick mache ich dass folgendermaßen: (Evtl. weichen die
Namen ein bisschen ab, da ich die englische Version benutze)
Lässt sich dieser Vorgang irgendwie automatisieren? Z.B. ein
Symbol in einer Toolbar hinzufügen, mit dem ich einfach bis zu
dem Punkt „Bild auswählen“ komme?
Über ein Makro?
Hi erdbrink,
wie Manfred schon sagte, zeichne ein Makro auf. Um die Bilddatei auszuwählen, schaue mal in der VBA-Hilfe zu Getopenfilename, dort findest du auch die Syntax dazu.
Prinzipiell müßtest du dann in den aufgezeichneten Code folgendes einbauen:
Dim Bild
Bild=getopenfilenname(…)
Und diese Variable anstelle des „festverdrahteten“ Dateinamen wählen.
Ggfs gibt es noch Probleme mit der Pfadauswahl. Poste hier deinen Makrocode und gib an in welchem Verzeichnis die Bilddateien liegen wenn du nicht klarkommmen solltest.
Gruß
Reinhard
Hallo,
vielen Dank schon mal für eure Hilfe.
Jetzt habe ich folgendes Problem: Ich habe mich noch nie mit Makros und VBA beschäftigt und deshalb noch einige Fragen:
Folgendes Makro habe ich aufgezeichnet:
Sub Test()
’
’ Test Macro
’ Macro recorded 14.12.2007 by erdbrink
’
’
Range(„F12“).AddComment
Range(„F12“).Comment.Visible = False
Range(„F12“).Comment.Text Text:="" & Chr(10) & „“
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoTrue
Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 255, 255)
Selection.ShapeRange.Fill.BackColor.SchemeColor = 80
Selection.ShapeRange.Fill.UserPicture _
„D:\Documents and Settings\erdbrink\My Documents“
End Sub
Das Problem steht meiner Meinung schon am Anfang: Ich habe Zelle F12 ausgewählt, würde das Bild aber gerne in beliebige Zellen einfügen.
Nächste (ganz blöde) Frage: wie starte ich ein Makro? Funktioniert dies nur über das Menü (oder Alt+F8), oder kann ich mir ein Symbol erzeugen.
Wenn ich oben angegebenes Makro starte, bekomme ich folgende Fehlermeldung:
"Run-time error ‚1004‘: Application-defined or object-defined error
bin für jede Hilfe dankbar.
mfG,
erdbrink
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hi erdbrink,
Das Problem steht meiner Meinung schon am Anfang: Ich habe
Zelle F12 ausgewählt, würde das Bild aber gerne in beliebige
Zellen einfügen.
das ist einfach zu lösen.
Nächste (ganz blöde) Frage: wie starte ich ein Makro?
Funktioniert dies nur über das Menü (oder Alt+F8), oder kann
ich mir ein Symbol erzeugen.
K.A. wie das auf englisch heißt, hier Ansicht–Symbolleisten–Formular, da kannste du eine Schaltfläche anlegen und der das makro zuweisen, sodaß es bei Klick auf die Schaltfläche ausgeführt wird.
Wenn ich oben angegebenes Makro starte, bekomme ich folgende
Fehlermeldung:
"Run-time error ‚1004‘: Application-defined or object-defined
error
Auch kein unlösbares Problem, der Debugger meckert daß F12 schon einen Kommentar hat und du einen hinzufügen willst.
Mein Problem ist gerade, ich kriege kein Bild in einen Kommentar mit deiner Vorgehensweise. Weder manuell noch per Vba. Dein Code wird schon bei der Zeile mit Transparancy bemängelt.
Welche Ecelversion hast du, 2007?
Gruß
Reinhard