[Megoldva] Sok kép beszúrása véletlenszerűen elrendezve

Ajjaj, mégsem: van egyszerű megoldás.
Ha Visio-ban a Print lapon legalul a Page Setup-ot választod, azon belül a Layout and Routing tabot, és bepipálod a "Move other shapes away on drop" jelölőnégyzetet a Macro2 futtatása előtt, az megoldja a problémádat, a lerakott képek nem lesznek átfedőek... :)

Üdv,
Marci

Annyira azért nem vészes :)

<?php
function intersects($rect1,$rect2)
{
return !(
       $rect1['x'] > $rect2['x'] + $rect2['w'] || 
       $rect1['x'] + $rect1['w'] < $rect2['x'] || 
       $rect1['y'] > $rect2['y'] + $rect2['h'] || 
       $rect1['y'] + $rect1['h'] < $rect2['y']
       );
}

use PhpOffice\PhpPowerpoint\Autoloader;
use PhpOffice\PhpPowerpoint\Settings;
use PhpOffice\PhpPowerpoint\IOFactory;
require_once __DIR__ . '/../src/PhpPowerpoint/Autoloader.php';
Autoloader::register();
use PhpOffice\PhpPowerpoint\PhpPowerpoint;
use PhpOffice\PhpPowerpoint\Style\Alignment;
use PhpOffice\PhpPowerpoint\Style\Color;

$objPHPPowerPoint = new PhpPowerpoint();
$currentSlide = $objPHPPowerPoint->getActiveSlide();
$rects=array();
do { 
	$x=rand(0,600); 
	$y=rand(0,600);
	$crect=array("x"=>$x,"y"=>$y,"w"=>247,"h"=>36);
	$nope=0;
	foreach ($rects as $rect)  if (intersects($rect,$crect)) { $nope=true; break; };
	if ($nope) continue;
	$rects[]=$crect;
	$shape = $currentSlide->createDrawingShape();
	$shape->setPath('./resources/phppowerpoint_logo.gif')
              ->setHeight(36)
              ->setOffsetX($crect['x'])
              ->setOffsetY($crect['y']);
       } while (count($rects)<25);
      $xmlWriter = IOFactory::createWriter($objPHPPowerPoint, "PowerPoint2007");
      $xmlWriter->save("out.pptx");
//    $xmlWriter = IOFactory::createWriter($objPHPPowerPoint, "ODPresentation");
//      $xmlWriter->save("out.odp");