Макрос для автоматической вставки фото в лист Excel

@Maximym · Регистрация: 03.06.2013

Студворк — интернет-сервис помощи студентам

Подскажите макрос вставить фото как фон к примечанию в Excel.
Пример в файле. Фото в столбце 2.

@Edvin · 17.06.2013, 12:03

Может быть вам такой вариант Ссылка удалена

Комментарий модератора

Сообщение от правила

Запрещено публиковать ссылки на другие форумы, а также их пропаганда. Публикация ссылок на форумы допустима только в разделе "Готовые движки, cms и форумы" для решения технических проблем и с предварительного одобрения администрации.
Запрещено размещать ссылки на коды программ, расположенные на других сайтах. Коды программ должны размещаться на форуме.

@KoGG · 17.06.2013, 13:44

Visual Basic

Sub bb()
    With ActiveSheet.Range("B4")
        .AddComment
        With .Comment
            .Visible = False
            .Text Text:=" "
            With .Shape
                .Fill.Transparency = 0#
                .Fill.Visible = msoTrue
                .Fill.UserPicture "C:\Temp\MyPicture.jpg"
                .ScaleWidth 1.47, msoFalse, msoScaleFromTopLeft
                .ScaleHeight 1.91, msoFalse, msoScaleFromTopLeft
            End With
       End With
    End With
End Sub

@Maximym · 17.06.2013, 14:21 **[ТС]**

Спасибо большое очень выручили.

@Maximym 0 / 0 / 0 Регистрация: 03.06.2013 Сообщений: 3
	17.06.2013, 14:21 [ТС]	4
	Спасибо большое очень выручили. 0

Опции темы