VBNet - Форум - Изменение рисунка на кнопке

Вопрос: Изменение рисунка на кнопке Добавлено: 24.05.05 15:19

Автор вопроса: Sandr0 | ICQ: 61457043

Мое почтение!

Задача.
Есть в наличии некий файл в формате EXCEL (Book1.xls). В этом файле есть созданная панель инструментов (имя пусть будет ТемпПанель). На панели есть кнопка (хай порядковый номер будет 1). Стиль кнопки - msoButtonIconAndCaption
Есть в наличии некий файл в формате BMP. (пусть путь будет c:\11.bmp ). В нем картинка 16х16.
Необходимо средствами VB открыть Book1.xls и изменить в панели ТемпПанель рисунок кнопки с порядковым номером 1.

Вариант решения.

Код:

    Dim MyXLS As Object
    Dim cmBars
    Dim picPicture As IPictureDisp

    Name = "book1.xls"
    Set MyXLS = GetObject("c:\" & Name)
    For Each cmBars In MyXLS.Application.CommandBars
        If cmBars.Name = "ТемпПанель" Then
            With cmBars.Controls(1)
                Set picPicture = LoadPicture("c:\11.bmp")
                .Picture = picPicture
            End With
        End If
    Next

Но в строке .Picture = picPicture выскакивает ошибка: Method Picture of object _CommandBarButton failed
И я никак не въеду в чем косяк
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Дмит Вопросов: 11 Ответов: 160	Web-сайт: dimit.pochta.ru Профиль \| \| #1	Добавлено: 24.05.05 18:22
	http://www.relib.com/forums/topic.asp?id=779504&pg=1 Commandbars("MyCB".Controls("MyButton".Picture=LoadPicture("C:\Icon.bmp" Ответить

Номер ответа: 2 Автор ответа: Sandr0 ICQ: 61457043 Вопросов: 3 Ответов: 5	Профиль \| \| #2	Добавлено: 25.05.05 07:55
	Эта не работает Ответить

Страница: 1 |