VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 11:23:35	Michael
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 13:40:29	Gast38897
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 13:52:29	Michael
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 16:34:25	Gast86317
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 17:03:03	Michael
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 17:47:14	Gast90054
Word - Wie komme ich an Objektnamen? Grafik tauschen	27.06.2014 08:01:06	Michael

Ansicht des Beitrags:

Von:
Gast90054

Datum:
26.06.2014 17:47:14

Views:
524

Rating:

Antwort:

Thema:
Word - Wie komme ich an Objektnamen? Grafik tauschen

Um mal nen Ansatz für Shape und InlineShape zu geben:

Option Explicit

Public Sub ShowSelectionInfo()
  
  Dim i As Long
  
  With Selection.Document
    
    Select Case Selection.Type
      
      Case wdSelectionInlineShape
        
        For i = 1 To .InlineShapes.Count
          If Selection.InlineShapes(1).Range.Start = .InlineShapes(i).Range.Start _
          And Selection.InlineShapes(1).Range.End = .InlineShapes(i).Range.End _
          Then
            Call MsgBox("Typ: " & vbTab & "InlineShape" & vbNewLine & _
                        "Index: " & vbTab & i, _
                        vbInformation, _
                        "Auswahl - Info")
            Exit For
          End If
        Next
        
      Case wdSelectionShape
        
        Call MsgBox("Typ:" & vbTab & "Shape" & vbNewLine & _
                    "Name: " & vbTab & "'" & Selection.ShapeRange.Name & "'", _
                    vbInformation, _
                    "Auswahl - Info")
      
      Case Else
        Call MsgBox("Keine Info zur Auswahl verfügbar.", vbExclamation)
    End Select
    
  End With
  
End Sub

Man markiert also ein Element, drückt dann Alt+F8 und im darauf geöffneten Fenster wählt man das obige Makro aus und führt es aus (man kann es auch an eine selbst definierte Tastenkombination wzb. STRG+I binden).

Es wäre auch vorstellbar zu jedem Element ein Textfeld hinzuzufügen in dem dann die Informationen zum Element drin stehen. Das Textfeld selbst richtet man entsprechend der Position des jeweiligen Elements aus (macht die Sache jedoch nur komplizierter).

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:

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
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 11:23:35	Michael
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 13:40:29	Gast38897
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 13:52:29	Michael
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 16:34:25	Gast86317
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 17:03:03	Michael
Word - Wie komme ich an Objektnamen? Grafik tauschen	26.06.2014 17:47:14	Gast90054
Word - Wie komme ich an Objektnamen? Grafik tauschen	27.06.2014 08:01:06	Michael