Afisare desktop

[vasileraz58]

Buna ziua!
As vrea sa stiu daca se poate face cumva ca sa-mi intre automat imaginea de desktop dupa cateva minute alese de mine.
Adica, mai explicit: - in cazul in care am deschis un fisier excel (sau mai multe), dupa cateva minute (sa zicem 5 minute), sa -mi intre desktop-ul ca si cand as da eu cu mausul in coltul din dreapta pe taskbar. Multumesc!

[Indigo-ONE]

Buna ziua,

As vrea sa stiu daca se poate face cumva ca sa-mi intre automat imaginea de desktop dupa cateva minute alese de mine.

Sa inteleg ca nu deschizi acele fisiere dintrun link de pe desktop?

Adica, mai explicit: - in cazul in care am deschis un fisier excel (sau mai multe), dupa cateva minute (sa zicem 5 minute), sa -mi intre desktop-ul ca si cand as da eu cu mausul in coltul din dreapta pe taskbar.

Si totusi care sa fie ideea????
Desktopul este suprafata de lucru a sistemului de operare.
Putin fortata abordarea dar e ca si cum ai manca stand pe scaun dar fara masa si ai dori ca dupa 5 minute de mancat sa iti apara masa.

[vasileraz58]

Buna ziua,

Putin fortata abordarea dar e ca si cum ai manca stand pe scaun dar fara masa si ai dori ca dupa 5 minute de mancat sa iti apara masa.

M-am distrat la aceasta remarca. Pe aceasta cale, va salut dl. Indigo.
Acele fisiere le deschid dintr-un shortcut de pe desktop. Am pe desktop un wallpaper ca un fel de screen saver. De aceea vreau sa-mi apara imaginea de desktop.Nu stiu cum pot sa urc aici acel fisier care ruleaza pe desktop. Are cam 980 mb.

[vasileraz58]

Asa ceva :
https://steamcommunity.com/app/431960/workshop/

[Catalin B.]

Minimizare ferestre nu e ceva complicat. Problemele apar din diversitatea cazurilor, de exemplu pot fi instante diferite de excel, fiecare cu cateva fisiere deschise, fiecare instanta poate avea deschisa si fereastra VB Editor de exemplu.
Pentru cel mai simplu caz, se poate folosi un addin simplu, salvat in Excel Startup Folder.
Codul pentru un modul standard:

Cod: Selectaţi tot

Option Explicit
Public TimeInterval As Double

Sub MinimizeWindow()
Dim i As Byte
For i = 1 To Application.Windows.Count
    Application.Windows(i).WindowState = xlMinimized
Next i
Debug.Print Now()
TimeInterval = Now() + TimeSerial(0, 5, 0)
Application.OnTime TimeInterval, "MinimizeWindow"
End Sub


Sub StopTimer()
Application.OnTime earliesttime:=TimeInterval, procedure:="MinimizeWindow", schedule:=False
End Sub

Pentru modulul ThisWorkbook:

Cod: Selectaţi tot

Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub

Private Sub Workbook_Open()
MinimizeWindow
End Sub

Fereastra VBE se poate minimiza cu:
Application.VBE.MainWindow.WindowState=vbext_ws_Minimize

[vasileraz58]

Multumesc!
Incerc sa aplic codul, dar nu stiu pasii de urmat. Unde trebuie copiat?

[Catalin B.]

Pentru cel mai simplu caz, se poate folosi un addin simplu, salvat in Excel Startup Folder.

Pai nu prea ai ce aplica.
Asa cum am spus, am atasat add-inul ce trebuie salvat in Excel Startup folder.
Mai trebuie sa descarci add-inul, si sa il salvezi in xlStart.
XLStart difera ca locatie in functie de versiune office. Ca exemplu:
C:\Users\{your user name}\AppData\Roaming\Microsoft\Excel\XLSTART

[vasileraz58]

Am descarcat fisierul si imi dau seama cum sta treaba, dar imi minimizeaza doar foile iar eu vreau sa minimizeze microsoft excel. Deci sa bage in bara cu totul, nu numai fereastra respectiva.

[Catalin B.]

Ce versiune de office este?

[vasileraz58]

Office 2007