Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Операции с графическими объектами / 10 сообщений из 10, страница 1 из 1
26.04.2007, 15:47:32
    #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:48:11
    #34490281
Диам
Диам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Операции с графическими объектами
PS Линия должна быть - коннектором.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2007, 09:55:27
    #34491727
Диам
Диам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Операции с графическими объектами
блин, поможите, кто-нибудь. Еще заметил такой косяк: в Excell есть справка по этому свойству BeginConnect, а в Word нету, хотя он с этими свойствами работает (Office 2003 SP2). Что за косяк?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2007, 10:33:09
    #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:38:26
    #34491930
Диам
Диам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Операции с графическими объектами
Да, в Екселе пашет, но нужен Ворд. И это наверняка можно там сделать, потому что там можно сделать практически все, что можно сделать руками... Но именно этот кусок они организовали коряво и справку сделали криво. Как быть?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2007, 10:41:20
    #34491946
Диам
Диам
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Операции с графическими объектами
кроме того, после попытки выполнить
Код: plaintext
sh3.ConnectorFormat.BeginConnect sh1,  5
ворд, собака, еще и объект sh1 в Nothing скидывает, гад!
Может это "официальная ошибка" MSWord?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.04.2007, 10:43:59
    #34491961
udgeen69
udgeen69
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Операции с графическими объектами
Диамкроме того, после попытки выполнить
Код: plaintext
sh3.ConnectorFormat.BeginConnect sh1,  5
ворд, собака, еще и объект sh1 в Nothing скидывает, гад!
Может это "официальная ошибка" MSWord?

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


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