Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 291
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von happy1998 vom 12.01.2018, 17:33 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Screenshot ein- und ausblenden

 (432 Hits)

Hallo,

aktuell habe ich einen Screenshot in einem Kommentar gespeichert.
Man kann also beim drüber gehen mit der Maus dieses Bild sehen.

Besser wäre es allerdings, wenn man das mit einem Button machen könnte.
Gibt es ein Steuerelement, mit dem das funktioniert.

Stelle mir vor, dass man klickt und nur beim klicken die Anzeige bekommt bzw. nur zeitlich befristet - nur kurz...

Vlt. hat jemand eine Idee.

Viele Grüße


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von Flupo vom 12.01.2018, 19:56 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Schreib mal noch dazu, um welches Programm es sich handelt.
Ohne raten wir nur sinnlos ins Blaue.

Gruß Flupo


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 2 von coros_o_cookies vom 13.01.2018, 20:23 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi,

nimm ein Image-Steuerelement weise ihm in den Eigenschaften unter dem Punkt "Picture" ein Bild zu und lasse es durch einen Button-Klick ein-/ ausblenden.

Der Code für den Button könnte z.B. wie folgt aussehen.

Option Explicit

Private Sub CommandButton1_Click()
If ActiveSheet.Image1.Visible = True Then
    ActiveSheet.Image1.Visible = False
Else
    ActiveSheet.Image1.Visible = True
End If
End Sub


MfG,
Oliver


Antwort noch nicht bewertet
Antwort 3 von happy1998 vom 15.01.2018, 17:24 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Oliver,

wenn ich meinen Screenshot mit dem Befehl verknüpfe, wie kann ich dann wieder einblenden.

Brauche ich nicht einen separaten Befehls - Button dem ich sage Bild einblenden / Bild ausblenden?


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 4 von coros_o_cookies vom 15.01.2018, 17:32 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi!

Mein Beispielcode fragt die Eigenschaft ".Visible " ab. Ist dieser "True", also Image sichtbar, wird beim nächsten Klick auf den Button das Image ausgeblendet. Ist es "False", also ausgeblendet, wird es beim nächsten Klick auf den Button wieder eingeblendet.

Gruß,
Oliver


Antwort noch nicht bewertet
Antwort 5 von happy1998 vom 16.01.2018, 09:47 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Oliver,

wie kann man denn erkennen, dass ein Bild einblendbar ist?

Gibt es da eine Möglichkeit?


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 6 von coros_o_cookie vom 16.01.2018, 09:56 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi!
Ein ActiveX Steuerelement-Image ist immer ein- und ausblendbar. Du musst es nur aus der Steuerelemententoolbox, zu finden im Menü "Entwicklertools => Einfügen=> ActiveX-Steuerelemente", heraus in Deine Tabelle einfügen, in den Eigenschaften des Image unter dem Punkt "Picture" Dein Bild auswählen und den obigen Beispielcode ausführen.

Gruß,
Oliver

PS: Ich würde Dich ja gerne mit Namen ansprechen. Da dieser aber scheinbar supergeheim zu sein scheint, kann ich Dich nur mit "Hi" anreden, sorry.


Antwort noch nicht bewertet
Antwort 7 von happy1998 vom 16.01.2018, 10:58 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi Oliver,

ich heiße Matthias ...

Habe das Steuerelement so wie beschreiben eingefügt. Das Ausblenden funktioniert auch beim klick.
Nur beim einblenden muss ich im Makro selbst ausführen (F5)

Also woher weiß der User, wie / wo ein Bild als Hilfe oder Beschreibung aufrufbar ist?


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 8 von coros_o_cookies vom 16.01.2018, 15:39 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Matthias!

Sorry, aber ich verstehe Deine Frage nicht. Du wolltest über einen Button ein Bild ein- und ausblenden. genau das macht der VBA-Code aus AW2. Deshalb fängt der Code auch mit "Private Sub CommandButton1_Click()" an. Hast Du eventuell gar kein Button zusätzlich zu dem Image Steuerelement in Dein Blatt eingefügt? Dann funktioniert die Sache natürlich nicht. Auch das Ausblenden über Klick auf das Image geht nicht, weil es eben, wenn es ausgeblendet ist, nicht mehr verfügbar ist. Deshalb das Ein- und Ausblenden über einen Button.

MfG,
Oliver


Antwort noch nicht bewertet
Antwort 9 von Nighty___ vom 16.01.2018, 18:20 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Oliver :-)

Schön von dir zu hören,ich hoffe doch sehr das es dir gut geht !

Mach ihm doch einen Smily auf den Button!

bei True= ":-)"
bei False =":-("

*kicher kicher*

Gruß Nighty


Antwort noch nicht bewertet
Antwort 10 von coros_o_cookies vom 16.01.2018, 18:56 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo nighty!

Danke der Nachfrage, es geht mir gut. Ich hoffe Dir auch.

Dein Wunsch ist mir Befehl. Nachfolgender Code blendet ein Smily und ein Schließensymbol beim entsprechenden Zustand ein:

Option Explicit

Private Sub CommandButton1_Click()
If ActiveSheet.Image1.Visible = True Then
    ActiveSheet.Image1.Visible = False
    With CommandButton1
        .Caption = "Bild einblenden"
        .Picture = Application.CommandBars.GetImageMso("HappyFace", 48, 48)
        .PicturePosition = 1
    End With
Else
    ActiveSheet.Image1.Visible = True
    With CommandButton1
        .Caption = "Bild ausblenden"
        .Picture = Application.CommandBars.GetImageMso("BroadcastEnd", 48, 48)
        .PicturePosition = 1
    End With
End If
End Sub


Gruß,
Oliver


Antwort noch nicht bewertet
Diese Antwort hat das Problem gelöst!




Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2018 Supportnet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Thu Apr 19 12:18:24 2018