Kommentare vergrößern in Windows10

[snb]

@Kuwer

#15 übersehen ?

[schauan]

Hallo snb,

ich denke, es geht Uwe in seiner Antwort darum, ob die Standardeinstellungen für Kommentare anzupassen sind. In #15 machst Du das ja im Nachhinein.

Eventuell klappt diese Vorgehensweise:
https://www.computerwissen.de/office/exc...assen.html
siehe dazu auch
http://www.giga.de/downloads/windows-10/...so-geht-s/

[snb]

Dann wäre es vernünftig erst alle Postings in diesem Thread zu lesen bevor etwas zu posten.

[Calafati]

Hallo snb,

habe nochmal eine Frage.
Das Makro

Sub M_snb()

    For Each it In Tabelle1.Comments
      With it.Shape.TextFrame
           .AutoSize = 2
           .Characters.Font.Size = 20
      End With
    Next
End Sub

funktioniert gut. Bislang ist es ja quasi so, daß erst der Kommentar aktiviert werden muß, dann nochmal raus gehen, Makro laufen lassen und dann nochmal rein und den Kommentar schreiben.

Frage: kann man dies Makro in eine Routine implementieren, die es gestattet, dieses Makro direkt aus der entsprechenden Zelle über eine zentrale Schaltfläche zu starten, so daß sich der Kommentar direkt "groß formatiert öffnet"? Habe Kollegen, die sich damit schwer tun und bin ja selbst leider kein Makro-Fachmann.

Wenn es geht, wäre das toll.
In jedem Fall vielen Dank und Gruß
Klaus

[schauan]

Hallo Klaus,

Du kannst mit dem Makro alle Kommentare schreiben und es anschließend laufen lassen. Dann werden alle Kommentare entsprechend vergrößert.

Man könnte aber auch ein Makro schreiben, wo Du z.B. mit Hilfe einer Inputbox einen Text eingibst und daraus dann einen Kommentar machst.

Das könnte im Ansatz so aussehen:

Code:

Sub KommentarErzeugen()
'Variablendeklarationen
Dim rngZelle As Range, strEingabe As String
Dim myComment As Comment
'Eingabe der Zelle - kann später die aktive sein
strEingabe = InputBox("Bitte Zelle eingeben: ", "Zelle für Kommentar", "A1")
'Bereich zuweisen - Achtung! Keine Fehlerpruefung
Set rngZelle = Range(strEingabe)
'Kommentareingabe
strEingabe = InputBox("Bitte Kommentar eingeben: ", "Kommentar", "Das ist mein Kommentar")
'Eventuell vorhandenen Kommentar loeschen
If Not rngZelle.Comment Is Nothing Then rngZelle.Comment.Delete
'Kommentar hinzufuegen
Set myComment = rngZelle.AddComment(strEingabe)
'Kommentar formatieren
With myComment.Shape.TextFrame
.AutoSize = 2
.Characters.Font.Size = 20
'Ende Kommentar formatieren
End With
End Sub

[Calafati]

Hallo Andre,

schon mal vielen Dank.

Vorab nochmal der Hintergrund (tolles Wortspiel :19: ):
Aufgrund des geringen Zoomfaktors in meiner Tabelle von nur 50% ist es schon schwierig, überhaupt einen Kommentar zu schreiben, da ich die Schrift gar nicht lesen kann. Das ist der Grund, warum ich das Ding überhaupt brauche. Daher fällt der Vorschlag mit dem erst schreiben und dann vergrößern, leider weg.

Ich habe leider noch nicht mit Input-Boxen gearbeitet. Kannst Du mir erklären, wie ich damit umgehen muß?

Nochmals besten Dank und Gruß
Klaus

[Calafati]

Sorry, Andre,
das ist ja viel einfacher als gedacht!!!
:19:
Ich glaube, das funzt so.
DANKE!
Klaus

[Calafati]

Ich habe zu dieser tollen Lösung nun noch eine weitere Frage bzw. Bitte:

ist es möglich, daß Makro dahingehend zu modifizieren, daß der geschriebene Kommentar direkt sichtbar, also "eingeblendet" wird?

Besten Dank vorab und Euch allen ein

schönes Wochenende
 Klaus

[WillWissen]

Hi Klaus,

schreibe vor End With: ActiveCell.Comment.Visible = True

[Calafati]

Danke Günter,

leider gibt er mit da jetzt einen Laufzeitfehler 91 aus: Objektvariable oder With-Blockvariable nicht festgelegt.

Weißt Du da Rat?
Schönes Weekend
Klaus