Styra PowerPoint - flytta bilder funkar inte
Tänkte fråga om det är någon som vet om det är en bugg eller något i VBA för PowerPoint.
Det jag skall göra är att kopiera några celler från Excel som bild och klistra in det i ett nytt PP-dokument. Det är inga problem.
Bilden är tyvärr lite för stor, och jag minskar därför även storleken i VBA. Inga problem där heller...
Sen skall jag flytta upp den två snäpp. Jag spelar in ett makro i PP där jag flyttar upp den och får fram följande kod:
With ActiveWindow.Selection.ShapeRange
.IncrementLeft 0.62
.IncrementTop -14#
End With
Den funkar fint att köra i PP, men när jag flyttar över den till Excel-makrot (och kopplar om det till en egen ShapeRange, "sh"):
With sh
.IncrementLeft 0
.IncrementTop -14#
.LockAspectRatio = msoTrue
.Height = 464.75
End With
Så fungerar det inte. Allt fungerar utom själva förflyttningen... någon som känner igen problemet?
/Niklas Jansson
Svara
Sv: Styra PowerPoint - flytta bilder funkar inte
Hur ser koden ut innan?
Jag hade jätteproblem när jag skapade diagram i excel. Var tvungen
att göra allt som hade med diagrammet att göra innan, verkade som om
den släppte referernsen sen...
Vad är det för fel du får?
/Emma
Svara
Sv: Styra PowerPoint - flytta bilder funkar inte
>Hur ser koden ut innan?
Jag antar att du menar innan i koden (inte tidsmässigt). Inte för att det är där problemet ligger men:
...
EDIT
Jag tog bort struntpratet. Jag hade skrivit en annan kod längre ner som flyttade ner bilden igen...
/Niklas Jansson
Svara