Thema Datum  Von Nutzer Rating
Antwort
Rot 1.Code umwandelen 2. Makro für Margins = Null setzen
 24.10.2014 23:15:55 Jens Schuhmann
NotSolved
29.10.2014 00:01:48 Gast46821
NotSolved

Ansicht des Beitrags:
Von:
Jens Schuhmann		 Datum:
24.10.2014 23:15:55		 Views:
2390		 Rating:
     
Antwort:
  Ja
Thema:
1.Code umwandelen 2. Makro für Margins = Null setzen
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
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.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot 1.Code umwandelen 2. Makro für Margins = Null setzen
 24.10.2014 23:15:55 Jens Schuhmann
NotSolved
29.10.2014 00:01:48 Gast46821
NotSolved