Для работы. НУЖНО ПРОПИСАТЬ КОД ЧТОБЫ В КВАДРАТe МОЖНО БЫЛО СТАВИТЬ ГАЛОЧКУ, И УБИРАТЬ ЕЩЁ (ТАКИМ ОБРАЗОМ ОТМЕЧАТЬ ЛЮДЕЙ ИЗ СПИСКА) ВНИМАНИЕ: НЕ В РЕЖИМЕ ДЕМОНСТРАЦИИ СЛАЙДОВ, А В РЕЖИМЕ РАБОТЫ СО СЛАЙДОМ. НЕ МОГУ ПРИКРЕПИТЬ ФАЙЛ, САЙТ НЕ ДАЁТ ПРИКРЕПИТЬ ФАЙЛ .pptx.
Для работы. Объяснить синтаксис приведенного ниже макроса (вставляет фото из папки в таблицу ворд). 'Выбор файла Sub Фото таблицей() With Application.FileDialog(msoFileDialogFilePicker) .Title = "Выбор фотографий" .Filters.Add "Изображения", "*.jpg; *.jpeg" .AllowMultiSelect = True If .Show = -1 Then InsertPhotos .SelectedItems End If End With End Sub 'Вставка фотографий Sub InsertPhotos(ByVal items As Variant) Dim fileName As Variant Dim counter As Integer, row As Long, col As Long counter = 1: row = 1: col = 1 Dim oTbl As Table Dim pic As InlineShape 'Параметры страницы With ActiveDocument.PageSetup End With 'Таблица с невидимыми границами для размещения фотографий Set oTbl = ActiveDocument.Tables.Add(Selection.Range, 2, 2) oTbl.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter oTbl.Range.ParagraphFormat.SpaceAfter = 3 oTbl.Range.Font.Size = 8 FormatTableRow oTbl, row 'Перебор выбранных файлов For Each fileName In items If (counter > 2) And (counter Mod 2 <> 0) Then oTbl.Rows.Add oTbl.Rows.Add col = 1 row = row + 2 FormatTableRow oTbl, row End If 'Вставка изображения Set pic = oTbl.Cell(row, col).Range.InlineShapes.AddPicture(fileName) With pic .Width = CentimetersToPoints(8) .Height = CentimetersToPoints(6) With .Line .Style = msoLineThinThin .ForeColor.TintAndShade = 1 .Weight = 0.5 .DashStyle = msoLineSolid End With End With 'Подпись к изображению oTbl.Cell(row + 1, col).Range.Text = "Ôîòî ¹" + CStr(counter) col = col + 1 counter = counter + 1 DoEvents Next End Sub 'Форматирование строки для фотографий Sub FormatTableRow(oTbl As Table, row As Long) With oTbl.Rows(row) .HeightRule = wdRowHeightAtLeast .Height = 0 .Range.ParagraphFormat.SpaceAfter = 0 End With End Sub.
Для себя. Написать программу на VBA Excel Файл excel содержит в виде таблицы данные о людях (фио, адрес, телефон и др.). Разработать программу, обеспечивающую заполнение произвольных документов word, данными из таблицы. Пользователь должен иметь возможность указать номер записи и файл, который следует заполнить данными из строки. Если в файле отсутствуют поля для ряда данных, игнорировать эти данные, оповещая об этом пользователя.
Зарегистрируйтесь и создайте привлекательный профиль с упоминанием вашей специализации. Обратите внимание на количество доступных заявок от учеников, которое на апрель 2026 года составляет 2
Какие требования к преподавателям на вашем сайте?
На нашем сайте приветствуются преподаватели с любым уровнем квалификации. Мы рекомендуем указать все свои сертификаты и образование, чтобы увеличить шансы на нахождение учеников
Могу ли я установить гибкий график работы?
Вы полностью контролируете свой график и можете обсуждать его напрямую с учениками, чтобы найти удобное время для обеих сторон
Каков потенциальный заработок для репетитора VBA?
Заработок зависит от количества занятий и квалификации. В среднем, за одно занятие можно заработать 240.76 рублей с занятия. Больше занятий в неделю – выше доход