Kommentar entsprechend Hintergrundgrafik skalieren
Andreas
um bei der Arbeit die ein oder andere Zeichnung als Vorschau in zu einer Liste Artikelnummern zu speichern bediene habe ich eine Kombination aus den Programm "Hardcopy" und einem Makro. Hardcopy ist so eingestellt, dass mit einer Tastenkombination ein Auswahlrechteck erscheint und den anschließend gewählte Bereich (unbekannte Größe und Seitenverhältnis) unter "C:\Dokumente und Einstellungen\Werner_A\Eigene Dateien\Eigene Bilder\Unbenannt.bmp" speichert.
Dann folgendes Makro aufgerufen:
Sub Bild_in_Kommentar_einfügen()
' Makro1 Makro
' Fügt die in "Eigene Bilder" des Beutzers abgelegte Grafik "Unbekannt.bmp" in einen Kommentar _
der aktiven Zelle ein.
' Tastenkombination: Strg+k
On Error GoTo Errorhandler
start:
With ActiveCell
.AddComment
.Comment.Visible = False
.Comment.Text Text:=Environ("Username") & ":" & Chr(10) & ""
.Comment.Shape.Fill.UserPicture _
"C:\Dokumente und Einstellungen\" & Environ("Username") & "\Eigene Dateien\Eigene _
Bilder\Unbenannt.bmp"
.Comment.Shape.LockAspectRatio = msoTrue
.Comment.Shape.Width = 800
End With
Exit Sub
Errorhandler:
If MsgBox("Es ist bereits ein Kommmentar in dieser Zelle enthalten. Diesen ersetzen?", _
vbYesNo) = vbYes Then
ActiveCell.Comment.Delete
GoTo start
End If
End Sub
Leider funktioniert es so nicht die Grafik bei gleichem Seitenverhältnis auf eine Breite von 800 zu skalieren.
Was ist da falsch?
Gruß,
A. Werner