Definieren Sie die Abmessungen des Kommentarfelds automatisch neu, um es an das Hintergrundbild in Excel anzupassen

1593
Guest

Angenommen, ich wähle in Excel ein Bild, beispielsweise test.jpeg, als Hintergrund für einen Kommentar. Ich möchte, dass das Kommentarfeld die Abmessungen von test.jpeg übernimmt. Da ich Hunderte solcher Kommentare vorhabe, lautet meine Frage: Gibt es eine Möglichkeit, dies zu automatisieren?

0

1 Antwort auf die Frage

2
nixda

Ich habe ein VBA-Makro zusammengebastelt. Öffnen Sie Ihren VBA-Editor mit ALT+ F11und fügen Sie den nachfolgenden Code unter sheet1 ein . Führen Sie das Makro mit ALT+ ausF8

Was macht das Makro?

  1. Bitten Sie den Benutzer um einen Pfad zu einem Bild, das er einfügen möchte (jpg, bmp oder png).

  2. Laden Sie das Bild als WIA.imageFile. Später verwenden wir objImage.Heightund objImage.Widthum die realen Bildabmessungen zu erhalten.

    Diese Methode war die kürzeste, die ich gefunden habe, um Dimensionen in Pixeln zu erhalten (andere VBA-Methoden können Twips ergeben . Sie sind eine schreckliche Erfindung)

  3. Fügen Sie einen leeren Kommentar in die aktuell ausgewählte Zelle ein, wenn dort kein alter Kommentar vorhanden ist
  4. Legen Sie das ausgewählte Bild als Hintergrundbild für die Kommentarform fest
  5. Ändern Sie die Größe der Kommentarform so, dass das Bild perfekt passt
Sub InsertComment()  Dim strImagePath As Variant Dim objImage As Object  strImagePath = Application.GetOpenFilename("Picture, *.jpg; *.png; *.bmp") If strImagePath = False Then Exit Sub  Set objImage = CreateObject("WIA.ImageFile") objImage.LoadFile strImagePath  With ActiveCell If .Comment Is Nothing Then .AddComment ("") .Comment.Shape.Fill.UserPicture strImagePath .Comment.Shape.Height = objImage.Height * 0.75 .Comment.Shape.Width = objImage.Width * 0.75 End With  End Sub
Absolut cool !! .......... Ich habe das Objekt * WIA.ImageFile * noch nie gesehen Gary's Student vor 8 Jahren 0
Sehr cool! Genau das, wonach ich gesucht habe. Nur eine Anmerkung: Es scheint, als wären die Abmessungen des Kommentars * größer * als die Abmessungen des Bildes. Wenn ich mir zum Beispiel die Details eines der JPEG-Bilder ansehe, die ich habe, sehe ich, dass seine Abmessungen 290 x 420 Pixel sind. Der Kommentar hat die Maße 10,24 x 14,82 cm. Laut [diesem Konverter] (http://www.unitconversion.org/typography/pixels-x-to-centimeter-conversion.html) sollte er jedoch 7,67 x 11,11 cm betragen. Guest vor 8 Jahren 0
Funktioniert jetzt wie ein Zauber. Danke vielmals! Guest vor 8 Jahren 0

Verwandte Probleme