Не могу добавить фигуру в новую книгу

[Basarga]

при открытии файла *.xlsm открывается окно, где можно выбрать текстовый файл. После его открытия в экселе в новом окне нужно в нём нарисовать прямоугольник и прикрепить к ней макрос. Подскажите, какой код добавить?

Private Sub Workbook_Open()
'
Dim file As Variant
    With Application.FileDialog(msoFileDialogOpen)
         .ButtonName = "Выбрать": .Title = "Выберите текстовый файл": .InitialFileName = ThisWorkbook.Path & "\"
         .Filters.Clear: .Filters.Add "Текстовые файлы", "*.txt"
         If .Show <> -1 Then Exit Sub
         file = .SelectedItems(1): PS = Application.PathSeparator
    End With
    Workbooks.OpenText Filename:=file, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2)), TrailingMinusNumbers:=True
End Sub

[EducatedFool]

Если не секрет, зачем кнопка запуска макроса в ТЕКСТОВОМ файле?

Макрос же находится в вашем XLSM - так выведите кнопку на панель инструментов.

Если все же хотите кнопку в файле, - можно сделать проще:
1) рисуете кнопку в вашем XLSM, назначаете её макрос
2) после открытия текстового файла, одной строкой кода копируете эту кнопку из вашего XLSM в открытый TXT
(строку кода поможет записать макрорекордер)


PS: Если прикрепите к сообщению свой файл XLSM с примером желаемой кнопки, - поможем с макросом.

[Basarga]

Сообщение от EducatedFool

Если не секрет, зачем кнопка запуска макроса в ТЕКСТОВОМ файле?

Макрос же находится в вашем XLSM - так выведите кнопку на панель инструментов.

Файлом будут люди пользоваться, которые не затрудняют себя изучением панели инструментов. Надо чтобы у них перед глазами инструкции вылезали большими красными буквами по чёрному фону, а желательно вообще в картинках, чтобы они не утруждали себя чтением.

Сообщение от EducatedFool

Если все же хотите кнопку в файле, - можно сделать проще:
1) рисуете кнопку в вашем XLSM, назначаете её макрос
2) после открытия текстового файла, одной строкой кода копируете эту кнопку из вашего XLSM в открытый TXT
(строку кода поможет записать макрорекордер)

Спасибо. Голова уже не соображала, ничего не получалось, поэтому создал тему и ушёл спать