Для работы. Объяснить синтаксис приведенного ниже макроса (вставляет фото из папки в таблицу ворд). 'Выбор файла 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.
Для работы (Для начала работы в сфере аналитики данных хочу выучить SQL, узнать сопутствующую информацию в части баз данных/хранилищ данных. Нужен репетитор/ментор/наставник. )
Для работы (Для начала работы в сфере аналитики данных хочу выучить SQL, узнать сопутствующую информацию в части баз данных/хранилищ данных. Нужен репетитор/ментор/наставник. )
Как мне найти учеников по профилю программирование рядом с м. Девяткино?
Зарегистрируйтесь и создайте привлекательный профиль с упоминанием вашей специализации. Обратите внимание на количество доступных заявок от учеников, которое на май 2026 года составляет 0
Какие требования к преподавателям на вашем сайте?
На нашем сайте приветствуются преподаватели с любым уровнем квалификации. Мы рекомендуем указать все свои сертификаты и образование, чтобы увеличить шансы на нахождение учеников
Могу ли я установить гибкий график работы?
Вы полностью контролируете свой график и можете обсуждать его напрямую с учениками, чтобы найти удобное время для обеих сторон
Каков потенциальный заработок для репетитора программирование?
Заработок зависит от количества занятий и квалификации. В среднем, за одно занятие можно заработать 459.73 рублей с занятия. Больше занятий в неделю – выше доход