获取版图形状对应幻灯片形状

Question

在PowerPoint 2007和使用VBA，我怎样才能得到一个幻灯片母版的布局，是“大师”的幻灯片上的占位符形状占位符形状？

我目前使用循环比较的幻灯片的布局每一个占位符形状的位置和形状的滑动占位符的位置和大小，但是这并不是傻瓜式的证明。例如，如果占位符形状在幻灯片上移动，其位置可能不再匹配幻灯片布局中任何占位符形状的位置。我可以重新应用幻灯片的布局来将占位符重新占位，但这不是我想要做的。

东西对象模型像Shape.Master将是理想的，但是，当然，前提是不存在的。

Answer 1

在这里你去瑞安，我相信这是你问什么。

Sub GetLayoutShapeDetails() 
Dim myPPT As Presentation 
Set myPPT = ActivePresentation 
Dim mySlide As Slide 
Set mySlide = myPPT.Slides(6) 
Dim slideShape As Shape 
Dim slideLayoutShape As Shape 
Set slideShape = mySlide.Shapes(1) 
If slideShape.Type = msoPlaceholder Then 
    Dim placeHolderType As Integer 
    placeHolderType = slideShape.PlaceholderFormat.Type 
    Set slideLayoutShape = mySlide.CustomLayout.Shapes.Placeholders(placeHolderType) 
    Dim modifiedPlaceHolder As String 
    modifiedPlaceHolder = "Shape Name: " & slideShape.Name & _ 
     ", Left: " & slideShape.Left & _ 
     ", Width: " & slideShape.Width 
    Dim originalPlaceHolder As String 
    originalPlaceHolder = "Shape Name: " & slideLayoutShape.Name & _ 
     ", Left: " & slideLayoutShape.Left & _ 
     ", Width: " & slideLayoutShape.Width 
    Debug.Print modifiedPlaceHolder 
    Debug.Print originalPlaceHolder 
End If 
End Sub 

---

编辑： 2010年1月16日 基于关进一步研究，有没有没有出现在VBA办法找到一个形状的相应的幻灯片的布局精确匹配。

Answer 2

看到，因为仍然没有答案，这在这里或其他地方我还不如后我的代码。

例如，如果占位符形状是在幻灯片上移动，

这就是我想出了以处理：各种形状的

• 店的位置
• 重置幻灯片布局
• 匹配滑动的形状和主滑动形状
• 恢复所有形状的位置。

这是一个函数，它返回一个mastershapename - shapename映射。

private Dictionary<string, string> GetShapeMasters(Powerpoint.Slide s) 
{ 
    Dictionary<string, string> shapeMasters = new Dictionary<string, string>(); 
    List<ShapeLocation> shapeLocations = new List<ShapeLocation>(); 

    //store locations 
    foreach (Powerpoint.Shape sh in s.Shapes) 
    { 
     shapeLocations.Add(new ShapeLocation() 
     { 
      Name = sh.Name, 
      Location = new System.Drawing.RectangleF(sh.Left, sh.Top, sh.Width, sh.Height) 
     }); 
    } 

    //have powerpoint reset the slide 
    //ISSUE: this changes the names of placeholders without content. 
    s.CustomLayout = s.CustomLayout; 

    //compare slide and master 
    foreach (Powerpoint.Shape sh in s.Shapes) 
    { 
     foreach (Powerpoint.Shape msh in s.CustomLayout.Shapes) 
     { 
      if (IsShapeMaster(sh, msh)) 
      { 
       shapeMasters[msh.Name] = sh.Name; 
      } 
     } 
    } 

    //restore locations 
    //TODO: might be replaced by undo 
    foreach (var shm in shapeLocations) 
    { 
     Powerpoint.Shape sh = null; 
     try 
     { 
      sh = s.Shapes[shm.Name]; 
     } 
     catch 
     { 
      //Fails for renamed placeholder shapes. 
      //Have yet to find a decent way to check if a shape name exists. 
     } 

     //placeholders do not need to be restored anyway. 
     if (sh != null) 
     { 
      sh.Left = shm.Location.Left; 
      sh.Top = shm.Location.Top; 
      sh.Width = shm.Location.Width; 
      sh.Height = shm.Location.Height; 
     } 
    } 

    return shapeMasters; 
} 

有了这个，你可以做

Dictionary<string, string> shapeMasters = GetShapeMasters(theSlide); 
if(shapeMasters.ContainsKey("KnownPlaceholderName")) 
    Powerpoint.Shape KnownShape = theSlide[shapeMasters["KnownPlaceholderName"]]; 

这里是比较函数有两个形状和检查，如果他们是“平等”。可以扩展以使其更加精确。

存储原来的形状位置

private bool IsShapeMaster(Powerpoint.Shape sh, Powerpoint.Shape msh) 
{ 
    return 
     sh.Left == msh.Left 
     && sh.Top == msh.Top 
     && sh.Width == msh.Width 
     && sh.Height == msh.Height 
     && sh.Type == msh.Type 
     && sh.PlaceholderFormat.Type == msh.PlaceholderFormat.Type; 
} 

小类

class ShapeLocation 
{ 
    public string Name; 
    public System.Drawing.RectangleF Location; 
} 

这是从C＃VSTO代码加载，但我想这是不是从VB或其他PPT自动化类型的不同。