Hallo zusammen,

ich habe zwei Herausforderungen vor denen ich stehe und diese nicht weis wie ich sie lösen soll.

1. Ich habe einen Code der mir alle Text-Boxen die ich aktiviert habe nebeneindander setzt. Diesen Code will ich umwandeln, dass ich ihn auch vertical nurtzen kann (übrigens alles im PowerPoint)

<span class="keyword">

Option Explicit</span> 
 
 
<span class="keyword">Sub</span> DistributeHorizontalSpace() 
    <span class="keyword">Dim</span> buffer <span class="keyword">As</span> Single 
    <span class="keyword">Dim</span> oShp <span class="keyword">As</span> Shape 
    <span class="keyword">Dim</span> l <span class="keyword">As</span> Single 
    buffer = 2 <span class="comment">' Change this to the distance you wish between the shapes.</span>
     
    <span class="keyword">With</span> ActiveWindow.Selection 
        .ShapeRange.Align msoAlignLefts, <span class="keyword">False</span> 
        <span class="keyword">For Each</span> oShp <span class="keyword">In</span> .ShapeRange 
            oShp.Left = oShp.Left + l 
            l = l + oShp.Width + buffer 
        <span class="keyword">Next</span> oShp 
    <span class="keyword">End With</span> 
     
<span class="keyword">End Sub</span> 

2. Als zweites will ich einen Code haben, mit dem alle "Margins" von allen selektierten Text-Boxen auf Null gesetzt werden. Wie kann man das machen?

Freue mich sehr über eure Hilfe.