Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Einfügen von Bildern in Kommentar geht nicht mehr

Einfügen von Bildern in Kommentar geht nicht mehr
Bildern
Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.Path
HyName = Pfad & "\" & Cells(zeile, spalte).Hyperlinks(1).Address
MsgBox HyName
With Cells(zeile, spalte)
.AddComment
'.Comment.Text Text:=HyName 'Pfad & Dateiname in Kommentar laden
Set mycom = .Comment.Shape
With mycom
.Fill.UserPicture Cells(zeile, spalte).Hyperlinks(1).Address 'Bild in Kommentar einfügen
.Width = 300
.Height = 200
End With
End With
End If
Hier werden anhand des Hyperlinks Vorschaubilder in den Kommentar geladen. Keine Angst, vor dem Speichern werden diese wieder rausgelöscht und beim Starten wird rein. So bleibt die Datei klein. Es funktioniert auch alles. Aber "plötzlich und unerwartet" bleiben die Kommentar-Kästchen leer. Hat einer von Euch Experten eine Idee, was ich verkehrt gemacht haben könnte ?
Im Voraus herzlichen Dank.
Gruß
Stefan K.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Einfügen von Bildern in Kommentar geht nicht mehr
30.11.2009 15:34:28
Bildern
Hallo
Das ist nicht unerwartet und plötzlich sondern ganz normal,... so wie ich das lese.
Das Makro läuft auf einen Fehler wenn schon ein Kommentar der Zelle zugewiesen ist, und macht einfach weiter, dann wird aber das einfügen der Bilder nicht mehr vorgenommen.
Lösche mal die Zeile "On Error Resume next" und lass das Makro nochmals laufen und schau was dann passiert.
Ansonsten mal die Datei hochladen oder das gesamte Makro incl. Löschmakro hier mal zeigen.
Gruss Rainer
Anzeige

342 Forumthreads zu ähnlichen Themen


Liebe Liste,
habe hier ein Problem, das mich fast verzweifeln läßt!
Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
Anzeige

Hallo zusammen
ich habe folgende Userform Die Datei https://www.herber.de/bbs/user/61474.xls wurde aus Datenschutzgründen gelöscht
diese funktioniert einwandfrei!
wenn ich aber als Hintergrund ein Image (Anzeige) hinterlege, funktioniert nichts mehr. Wieso ist das so?
kann man...

Hallo.
Ich habe vor längerer Zeit ein größeres Makro geschrieben, bei dem unter anderem bei einem Button-Klick entsprechende Seite gedruckt werden.
Meine User rufen das Makro aus einer xls via Terminal Server auf. Bisher war dies ein W2k3x86-Server mit Excel 2003 SP2. Nun habe ich neue...
Anzeige

Hallo @alle,
dies ist nur ein Test :
Ich kann meine Beiträge plötzlich nicht mehr absenden : Nach der Vorschau fehlt der "Absenden"-Button :-((
Gruß, NoNet
Dropdown geht nicht mehr
stephan.schwander@wander.ch

Guten Tag zusammen,
in einer Tabelle von mir geht auf eimal der zellendropdown (Spalte G und H) nicht mehr.
Ich habe überhaupt keine Ahnung an was dies liegen kann?
Die Tabelle im Anhang ist ein Auszug einer komplexen Auswertung.
https://www.herber.de/bbs/user/62837.zip
Bes...

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige