Macro para ajustar imágenes automáticamente PowerPoint

A diario debo hacer un reporte en PowerPoint donde pego 4 imágenes por diapositiva y luego las ajusto para que quepan todas en la misma. Quisiera saber cómo automatizar esta tarea ya que se vuelve engorrosa cuando son 40-50 diapositivas.

Estuve leyendo y encontré el siguiente código

With ActiveWindow.Selection.ShapeRange
.Weight= ###
.Width= ###
.Left= ###
. Top= ###

Este funciona cuando es una sola imagen, pero no sé cómo hacerlo cuándo sean varias y que se ajusten automaticamente (dejando un pequeño espacio entre cada una de ellas), además de que el tamaño no importa siempre y cuando se mantenga la relación alto/ancho.

Dejo una ayuda visual para facilitar lo que busco: