#macros #resize #word #textblock
Вопрос:
Я пытаюсь создать свой собственный макрос word, который изменяет размер изображений, создает черную рамку, содержит изображения в документе.
Теперь я хочу создать текстовые поля рядом с изображениями?
У меня есть макрос, который вызывает различные функции:
Sub ResizePics() Dim shp As Shape Dim ish As InlineShape For Each shp In ActiveDocument.Shapes Select Case shp.Type Case msoPicture, msoLinkedPicture shp.Line.Style = msoLineSingle With shp.Line .Style = msoLineSingle .Weight = 1 .ForeColor = wdColorBlack End With End Select Next shp For Each ish In ActiveDocument.InlineShapes Select Case ish.Type Case wdInlineShapePicture, wdInlineShapeLinkedPicture With ish.Line .Style = msoLineSingle .Weight = 1 .ForeColor = wdColorBlack End With End Select Next ish Dim i As Long With ActiveDocument For i = 1 To .InlineShapes.Count With .InlineShapes(i) .Height = 161 .Width = 300 .LockAspectRatio = True End With Next i End With End Sub Sub CompressPics() With Application.CommandBars.FindControl(ID:=6382) SendKeys "%A%W{Enter}" .Execute End With End Sub Sub CreateTextBox() Dim Box As Shape Set Box = ActiveDocument.Shapes.AddTextbox( _ Orientation:=msoTextOrientationHorizontal, _ Left:=425, Top:=150, Width:=100, Height:=50) 'The solution for you: Box.TextFrame.TextRange.Text = "My text comes this way" End Sub Sub Done() MsgBox ("Optimizing document done!") End Sub В настоящее время это то, как далеко я продвинулся. Кажется, я не могу понять, как добавить текстовое поле рядом с каждым изображением