Automatycznie przedefiniuj wymiary pola komentarza, aby pasowały do ​​obrazu tła w programie Excel

W programie Excel powiedzmy, że wybrałem obraz, na przykład test.jpeg, jako tło komentarza. Chcę, aby pole komentarza miało wymiary test.jpeg. Ponieważ planuję mieć setki takich komentarzy, moje pytanie brzmi: czy istnieje sposób na zautomatyzowanie tego?

Poprawiłem makro VBA. Otwórz edytor VBA za pomocą ALT+ F11i wklej poniższy kod w arkuszu 1 . Uruchom makro za pomocą ALT+F8

Co robi makro

1. Poproś użytkownika o ścieżkę do zdjęcia, które chce wstawić (może to być jpg, bmp lub png)

2. Załaduj to zdjęcie jako WIA.imageFile. Później używamy objImage.Heighti, objImage.Widthaby uzyskać rzeczywiste wymiary obrazu.

   Ta metoda była najkrótszą, jaką znalazłem, aby uzyskać wymiary w pikselach (inne metody VBA mogą dać ci bzdury . To okropny wynalazek)

3. Wstaw pusty komentarz do aktualnie wybranej komórki, jeśli nie ma tam już starego komentarza
4. Ustaw wybrane zdjęcie jako obraz tła dla kształtu komentarza
5. Zmień rozmiar kształtu kształtu komentarza, aby obraz idealnie pasował

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