Вопрос : Как smogли вы изменить размеры & установить изображения автоматически в архиве PowerPoint на специфически положении на каждом скольжении?

Это отнесено «может вы создать архив PowerPoint автоматически с одним изображением в страницу от выбранного скоросшивателя?» макрос

The от родственного вопроса работает наилучшим образом, но я хотел был бы знать если smogл быть доработано, то так как он: сокращение
- изображения 20% перед устанавливать их на &
- скольжения устанавливает их 2 " вниз от верхней части на каждом скольжении? class= " ясное " >
Related: href= " /Software/Office_Productivity/Office_Suites/MS_Office/Powerpoint/Q_25790132.html " title= " Can вы создаете архив PowerPoint автоматически с одним изображением в страницу от выбранной створки…

Ответ : Как smogли вы изменить размеры & установить изображения автоматически в архиве PowerPoint на специфически положении на каждом скольжении?

Небольшая фишка после этого

Крис
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

Sub insertPictures ()

На ошибке переход ErrHandler

Тусклое sPath как шнур
sPath = InputBox («войдите курс скоросшивателя с изображениями»)
Если право, то (sPath, 1) = «\» после этого sPath = вышло (sPath, Len (sPath) - 1)

Тусклое fso как предмет
Тусклое fsoFolder как предмет
Тусклое fsoFile как предмет

Тусклое pptLayout как CustomLayout
Затемните I как интежер
iий = 1
Установите pptLayout = ActivePresentation.Slides (1).CustomLayout
Затемните pptSlide как скольжение
Затемните pptShape как форма
pixelsPerInch Const как интежер = 96

Установите fso = CreateObject («scripting.filesystemobject»)
Установите fsoFolder = fso.GetFolder (sPath)
Для каждого fsoFile в fsoFolder.Files
    iий = I + 1
    Установите pptSlide = ActivePresentation.Slides.AddSlide (I, pptLayout)
    Установите pptShape = pptSlide.Shapes.AddPicture (fsoFile.Path, msoFalse, msoTrue, 0, 0)
'    pptShape.ScaleHeight 0.8, msoTrue
    pptShape.Top = pptShape.Top + (pixelsPerInch * 1)
    pptShape.Left = (ActivePresentation.PageSetup.SlideWidth -) pptShape.Width/2
DoEvents
Следующее fsoFile

Выходите подводная лодка
ErrHandler:
Резюме затем

Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us