Sök

Hej, får inte följande att fungera, tänkte att jag säkert gjort ett enkelt fel varvid jag ställer frågan här. Använder följande kod (eller, ja, det var ursprungligen en del av en större loop, men jag har försökt få det att fungera och har minskat ned så långt som möjligt) för att exportera givna diagram till en ppt. Någonstans på vägen har jag lyckats snurra till det varvid allt fallerar numera. Microsoft Powerpoint Libary är aktivt Sub ToMonthly() Dim PP As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim SlideTitle As String Dim shp As Object Dim strPP As String strPP = ThisWorkbook.Path & "\" & "2020board.pptx" Set PP = New PowerPoint.Application Set PPPres = PP.Presentations.Open(strPP) PP.Visible = True Sheets("Utfall").Chart("Diagram 3").CopyPicture _ Appearance:=xlScreen, Format:=xlPicture PPSlide.Shapes.Paste.Select Set shp = PP.ActiveWindow.Selection.ShapeRange shp.Height = 600 shp.Width = 600 With PPPres.PageSetup shp.Left = (.SlideWidth / 2) - (shp.Width / 2) shp.Top = (.SlideHeight / 2) - (shp.Height / 2) End With PP.Activate Set PPSlide = Nothing End Sub

Jag har ett bildspel gjort i Powerpoint 2007, med hyperlänkar som hänvisar till några wordmallar (dotx). Länkarna fungerar alldeles utmärkt förutom att de öppnar själva mallen i redigeringsläge. Jag vill ju att den skall öppna mallen precis som när man dubbelklickar på en mall, t.ex. mall.dotx, och som man därefter sparar som en ny fil. (Högerklick och välja Öppna, öppnar ju mallen så att den går att redigera). Förstår ju rent logiskt att om hyperlänken pekar på min mall så öppnar den filen så att den går att redigera men det vill jag ju inte. Finns det nåt sätt att gå runt det? Hoppas ni förstår hur jag menar!