ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / OLEObject
8 сообщений из 8, страница 1 из 1
OLEObject
    #33764155
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
Как изменить свойства обьектов-имя, цвет?
Установить можно так например:



ActiveSheet.OLEObjects.Add ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:=105, Top:=290, Width:=37, Height:=15

?????.Caption="vova" - как сделать?
...
Рейтинг: 0 / 0
31.05.2006, 17:27:59
| Ответить | Цитировать | Написать  
OLEObject
    #33764395
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
В общем случае
ActiveSheet.OleObjects(1).Object.чего-то_там

У Forms.Image свойства Caption не существует кстати. Используй Forms.Label.
...
Рейтинг: 0 / 0
31.05.2006, 18:43:59
| Ответить | Цитировать | Написать  
OLEObject
    #33764911
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Sub AddImage()
    Dim objImg As OLEObject

    Set objImg = ActiveSheet.OLEObjects.Add( _
      ClassType:="Forms.Image.1", _
      Link:=False, _
      DisplayAsIcon:=False, _
      Left:= 105 , Top:= 290 , Width:= 37 , Height:= 15 )
    
    objImg.Object.Picture = LoadPicture("D:\1\1.bmp")
End Sub

И, как правильно сказал White Owl, у котрола Image, входящего в состав MSForms, нет свойства Caption.
...
Рейтинг: 0 / 0
01.06.2006, 08:10:05
| Ответить | Цитировать | Написать  
OLEObject
    #33764964
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
Вообще то с "Caption" я погорячился, нужно было имя!

Код: plaintext
Sheet4.Shapes("Image1").name = "MyFrame"

а вот свойства "color" тоже отсутствует, или есть?
...
Рейтинг: 0 / 0
01.06.2006, 08:54:37
| Ответить | Цитировать | Написать  
OLEObject
    #33765020
Ashton
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ashton
Гость
Color нет, есть BackColor.

Совет: Создай форму, добавь котрол Image и посмотри какие у него свойства.
...
Рейтинг: 0 / 0
01.06.2006, 09:31:03
| Ответить | Цитировать | Написать  
OLEObject
    #33767113
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
vallotа вот свойства "color" тоже отсутствует, или есть?
Когда работаешь с OLEObject ты указываешь OLE библиотеку содержающую эти объекты в Tools->References, так? Теперь зови инспектор объектов (который по F2 в VBA вызывается). В левом верхнем углу окна выбери чтоб он показывал только нужную тебе в данный момент библиотеку. Для Forms.* это будет MSForms. Получишь список всех классов этой библиотеке. Находишь там класс Image и в правом окне будет полный список всех пропертей и методов этого класса.
...
Рейтинг: 0 / 0
01.06.2006, 18:34:09
| Ответить | Цитировать | Написать  
OLEObject
    #33767130
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
vallotВообще то с "Caption" я погорячился, нужно было имя!
Код: plaintext
Sheet4.Shapes("Image1").name = "MyFrame"
Кстати о птичках.... Объекты коллекции Shapes не являются OLEObjects! Не надо их путать. OLEObjects подгружаются в Эксель из внешних библиотек, а Shapes - это родные объекты Экселя.
...
Рейтинг: 0 / 0
01.06.2006, 18:36:35
| Ответить | Цитировать | Написать  
OLEObject
    #33767500
vallot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vallot
Гость
авторКстати о птичках.... Объекты коллекции Shapes не являются OLEObjects! Не надо их путать. OLEObjects подгружаются в Эксель из внешних библиотек, а Shapes - это родные объекты Экселя.

Это было так: я включил запись макроса, установил Image -у этого Image свойства есть. Но если его запустить с макроса, то только "Edit"! А в макросе было
Код: plaintext
1.
ActiveSheet.OLEObjects.Add ClassType:="Forms.Image.1", Link:=False, _
DisplayAsIcon:=False, Left:= 105 , Top:= 290 , Width:= 37 , Height:= 15

И только так я смог поменять имя:

Код: plaintext
Sheet4.Shapes("Image1").name = "MyFrame"



Я вот думаю может ексель берет олеобьект и каким то образом регистрирует
его у себя и наделяет его свойствами, потому они и доступны!? А через макрос
свойства недоступны!

За дельные советы большое спасибо! Буду использовать их.
...
Рейтинг: 0 / 0
01.06.2006, 23:39:36
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / OLEObject
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33764155&tid=2184793]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 78ms
get topic data:
 14ms
get forum data:
 4ms
get page messages:
 64ms
get tp. blocked users:
 2ms
others: 239ms
total:  438ms
созд. / загр.: 438ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]