Я пытаюсь создать ленту для Office Word 365 с двумя полями редактирования и флажком.
У меня есть макрос, который я хотел бы использовать после этого.
До сих пор я использовал конструктор лент в Visual Studio для создания ленты надстроек.
Надстройка отображается в Word и выглядит так, как будто должна. Я просто не могу понять, как получить ввод из ящиков для редактирования и флажок для VBA.
Код VBA, который у меня есть, выглядит следующим образом:
Sub PasteAndSelectPicture()
Application.ScreenUpdating = False
Dim ils As Word.InlineShape
Dim shp As Word.Shape
Dim lNrIls As Long
Dim lNrShp As Long
Dim rngDoc As Word.Range
Dim rngSel As Word.Range
Set rngDoc = ActiveDocument.Content
Set rngSel = Selection.Range
rngDoc.End = rngSel.End + 1
'Get an InlineShape
lNrIls = rngDoc.InlineShapes.Count
Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, Placement:=wdInLine, DisplayAsIcon:=False
Debug.Print rngDoc.InlineShapes.Count, lNrIls
Set ils = rngDoc.InlineShapes(lNrIls + 1)
ils.Width = Application.CentimetersToPoints(VAR1)
Set shp = ils.ConvertToShape
shp.IncrementRotation VAR2
shp.ConvertToInlineShape
Application.ScreenUpdating = True
End Sub
Я бы хотел, чтобы VAR1 и VAR2 были входами из двух окон редактирования.