ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Операции с графическими объектами
10 сообщений из 10, страница 1 из 1
Операции с графическими объектами
    #34490277
Диам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диам
Участник
Здравствуйте. Люди, мне надо добавить на лист ворда два объекта ромб и еще один ромб И!!! соединить их стрелкой. Добавить ромбы (или любые другие фигуры) не проблема. Но вот соединить их линией- проблема...
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Sub Макрос1()
  Dim shp As Shape
  Dim sh1 As Shape, sh2 As Shape, sh3 As Shape
  Dim sn1 As String, sn2 As String
  With ActiveDocument.PageSetup
    Set shp = ActiveDocument.Shapes.AddCanvas _
      (.LeftMargin, .TopMargin, .PageWidth - .LeftMargin - .RightMargin, .PageHeight - .TopMargin - .BottomMargin)
  End With
  With shp.CanvasItems
        Set sh1 = .AddShape(msoShapeFlowchartConnector, Left:= 10 , _
          Top:= 10 , Width:= 50 , Height:= 20 )
      
        Set sh2 = .AddShape(msoShapeFlowchartConnector, Left:= 10 , _
          Top:= 50 , Width:= 50 , Height:= 60 )
                
        Set sh3 = .AddConnector(msoConnectorElbow,  50 . 2 ,  58 . 55 ,  10 . 8 ,  30 . 45 )
        sh3.Line.EndArrowheadStyle = msoArrowheadTriangle        
        
        sh3.ConnectorFormat.BeginConnect sh1,  5 
    End With

End Sub
Строка
Код: plaintext
sh3.ConnectorFormat.BeginConnect sh1,  5
Косячит. Что делать не знаю, все перепробовал....
...
Рейтинг: 0 / 0
26.04.2007, 15:47:32
| Ответить | Цитировать | Написать  
Операции с графическими объектами
    #34490281
Диам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диам
Участник
PS Линия должна быть - коннектором.
...
Рейтинг: 0 / 0
26.04.2007, 15:48:11
| Ответить | Цитировать | Написать  
Операции с графическими объектами
    #34491727
Диам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диам
Участник
блин, поможите, кто-нибудь. Еще заметил такой косяк: в Excell есть справка по этому свойству BeginConnect, а в Word нету, хотя он с этими свойствами работает (Office 2003 SP2). Что за косяк?
...
Рейтинг: 0 / 0
27.04.2007, 09:55:27
| Ответить | Цитировать | Написать  
Операции с графическими объектами
    #34491899
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
udgeen69
Участник
В екселе все работает... Мне кажется что коннектор с вордом не дружит.


Sub nnnnd()





Dim Shape1 As Shape, Shape2 As Shape, ShapeCon As Shape

Set Shape1 = ActiveSheet.Shapes.AddShape _
(msoShapeOval, 100, 100, 50, 50)
Set Shape2 = ActiveSheet.Shapes.AddShape _
(msoShapeOval, 300, 100, 50, 50)


Set ShapeCon = ActiveSheet.Shapes.AddConnector _
(msoConnectorStraight, 1, 1, 1, 1)


With ShapeCon
.ConnectorFormat.BeginConnect Shape1, 1
.ConnectorFormat.EndConnect Shape2, 1
.RerouteConnections
End With


End Sub
...
Рейтинг: 0 / 0
27.04.2007, 10:33:09
| Ответить | Цитировать | Написать  
Операции с графическими объектами
    #34491930
Диам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диам
Участник
Да, в Екселе пашет, но нужен Ворд. И это наверняка можно там сделать, потому что там можно сделать практически все, что можно сделать руками... Но именно этот кусок они организовали коряво и справку сделали криво. Как быть?
...
Рейтинг: 0 / 0
27.04.2007, 10:38:26
| Ответить | Цитировать | Написать  
Операции с графическими объектами
    #34491946
Диам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диам
Участник
кроме того, после попытки выполнить
Код: plaintext
sh3.ConnectorFormat.BeginConnect sh1,  5
ворд, собака, еще и объект sh1 в Nothing скидывает, гад!
Может это "официальная ошибка" MSWord?
...
Рейтинг: 0 / 0
27.04.2007, 10:41:20
| Ответить | Цитировать | Написать  
Операции с графическими объектами
    #34491961
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
udgeen69
Участник
Диамкроме того, после попытки выполнить
Код: plaintext
sh3.ConnectorFormat.BeginConnect sh1,  5
ворд, собака, еще и объект sh1 в Nothing скидывает, гад!
Может это "официальная ошибка" MSWord?

Да, я заметил, что он скидывает и именно по этому и не выполняет видимо...
Кстати макрос в ворде на коннектор невозможно записать? У меня не вышло
...
Рейтинг: 0 / 0
27.04.2007, 10:43:59
| Ответить | Цитировать | Написать  
Операции с графическими объектами
    #34492000
Диам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диам
Участник
макрос не получается, пробовал. Ни на отрисовку объектов(ромбиков кружчков), ни на действия со стрелочками-коннекторами. Зато он их выделяет! Достижение!
...
Рейтинг: 0 / 0
27.04.2007, 10:49:59
| Ответить | Цитировать | Написать  
Операции с графическими объектами
    #34492083
Фотография udgeen69
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
udgeen69
Участник
Хмм... А визио для вашей задачи не подойдет?
...
Рейтинг: 0 / 0
27.04.2007, 11:04:07
| Ответить | Цитировать | Написать  
Операции с графическими объектами
    #34492292
Диам
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Диам
Участник
а в нем тоже можно пользоваться программированием? Или допустим, если я туда запихну текст программы, он мне сам построит блок-схему для нее?
...
Рейтинг: 0 / 0
27.04.2007, 11:47:14
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Операции с графическими объектами
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34491961&tid=2183065]:
 0ms
get settings:
 8ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 21ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 220ms
total:  313ms
созд. / загр.: 313ms
x
x
Закрыть


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