Границы рисунка в Word 2007

[Nord18]

Как изменить рамку с помощью VBA?

[Aent]

Для варианта с VBA:
Размещаете рисунок.
Определяете для него в Word ширину границы.
Выбираете рисунок как текущий объект.
Нажимаете Alt-F11
Переходите в VBE
Нажимаете Ctrl+G
В окне Immediate набираете: Selection.ShapeRange.Line.Pattern = msoPatternLargeConfetti
Нажимаете Enter.
Возвращаетесь в Word.
Естественно, вместо msoPatternLargeConfetti нужно указывать нужный вам тип узора.
Его можно посмотреть в HELP или подобрать экспериментально простейшим макросом.
Если вам нужно выполнять подобные действия регулярно - напишите простейший макрос и запускайте его.

[Nord18]

Когда я ввожу Selection.ShapeRange.Line.Pattern = msoPatternLargeConfetti возникает ошибка. Как правильно указать нужный тип узора? Какой HELP Вы имеете ввиду?
P.S. Не судите строго, я не программист...

[Aent]

Под "Выбираете рисунок как текущий объект" в частности подразумевалось
что вы установите для рисунка перед выделением его мышью тип обтекания текстом: "перед текстом". Потом конечно можно его поменять.
HELP - HELP по VBA Word 2003
Допустимы следующие MsoPatternType константы:
msoPattern10Percent
msoPattern20Percent
msoPattern25Percent
msoPattern30Percent
msoPattern40Percent
msoPattern50Percent
msoPattern5Percent
msoPattern60Percent
msoPattern70Percent
msoPattern75Percent
msoPattern80Percent
msoPattern90Percent
msoPatternDarkDownwardDiagonal
msoPatternDarkHorizontal
msoPatternDarkUpwardDiagonal
msoPatternDarkVertical
msoPatternDashedDownwardDiagonal
msoPatternDashedHorizontal
msoPatternDashedUpwardDiagonal
msoPatternDashedVertical
msoPatternDiagonalBrick
msoPatternDivot
msoPatternDottedDiamond
msoPatternDottedGrid
msoPatternHorizontalBrick
msoPatternLargeCheckerBoard
msoPatternLargeConfetti
msoPatternLargeGrid
msoPatternLightDownwardDiagonal
msoPatternLightHorizontal
msoPatternLightUpwardDiagonal
msoPatternLightVertical
msoPatternMixed
msoPatternNarrowHorizontal
msoPatternNarrowVertical
msoPatternOutlinedDiamond
msoPatternPlaid
msoPatternShingle
msoPatternSmallCheckerBoard
msoPatternSmallConfetti
msoPatternSmallGrid
msoPatternSolidDiamond
msoPatternSphere
msoPatternTrellis
msoPatternWave
msoPatternWeave
msoPatternWideDownwardDiagonal
msoPatternWideUpwardDiagonal
msoPatternZigZag
Названия говорят сами за себя.

[Nord18]

Вот Теперь работает!! А цвета реально изменить???Или только стандартные черно-белые остаются?

[Aent]

Так же меняются и цвета

Selection.ShapeRange.Line.ForeColor - цвет объектов переднего плана
Selection.ShapeRange.Line.BackColor - цвет фона

цвет это целое типа long со значением 24 битового цвета по RGB(red-green-blue):
Либо используйте именованные константы типа WdColor

WdColor can be one of these WdColor constants.
wdColorGray625
wdColorGray70
wdColorGray80
wdColorGray875
wdColorGray95
wdColorIndigo
wdColorLightBlue
wdColorLightOrange
wdColorLightYellow
wdColorOliveGreen
wdColorPaleBlue
wdColorPlum
wdColorRed
wdColorRose
wdColorSeaGreen
wdColorSkyBlue
wdColorTan
wdColorTeal
wdColorTurquoise
wdColorViolet
wdColorWhite
wdColorYellow
wdColorAqua
wdColorAutomatic
wdColorBlack
wdColorBlue
wdColorBlueGray
wdColorBrightGreen
wdColorBrown
wdColorDarkBlue
wdColorDarkGreen
wdColorDarkRed
wdColorDarkTeal
wdColorDarkYellow
wdColorGold
wdColorGray05
wdColorGray10
wdColorGray125
wdColorGray15
wdColorGray20
wdColorGray25
wdColorGray30
wdColorGray35
wdColorGray375
wdColorGray40
wdColorGray45
wdColorGray50
wdColorGray55
wdColorGray60
wdColorGray65
wdColorGray75
wdColorGray85
wdColorGray90
wdColorGreen
wdColorLavender
wdColorLightGreen
wdColorLightTurquoise
wdColorLime
wdColorOrange
wdColorPink

Либо используйте константы VBA

Constant Value Description
vbBlack 0x0 Чёрный
vbRed 0xFF Красный
vbGreen 0xFF00 Зелёный
vbYellow 0xFFFF Жёлтый
vbBlue 0xFF0000 Синий
vbMagenta 0xFF00FF Марганцевый
vbCyan 0xFFFF00 Циан (зелёно-синий)
vbWhite 0xFFFFFF Белый

Либо явно задавайте цвет по RGB

Selection.ShapeRange.Line.ForeColor.RGB = RGB(5,12,13)

Числовые значения RGB показываются в стандартных диалогах выбора цвета при выборе "другие цвета".

[Nord18]

Если можно хотябы 1 примерчик, как это все задать правильно и моя благодарность не знает границ!!!! Плиззз

[Aent]

Я же написал "так же как с паттернами". Непонятно что вам непонятно...
Последовательно вводите в окне Immediate:
Selection.ShapeRange.Line.Pattern = msoPatternLargeConfetti
Нажимаете Enter
Selection.ShapeRange.Line.ForeColor = vbRed
Нажимаете Enter
Selection.ShapeRange.Line.BackColor = vbGreen
Нажимаете Enter
Имеете рамку в виде красного конфети на зелёном фоне

[Nord18]

Все! Теперь понял! Я последовательность не соблюдал поэтому вылетала ошибка...Макросом это не реально наверное сделать, слишком много настроек?

[Aent]

Вполне реально. Но поскольку вопрос весьма экзотический (вот даже Микрософт из стандартного интерфейса эти средства исключила), то просто так делать макрос с развёрнутым удобным пользовательским интерфейсом не хочется. Если у вас есть желание получить его на коммерческой основе - пишите ваши предложения по сумме на мой E-Mail в профиле. Сделаю вам надстройку.