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.
|