BIFFUD Style Guide - Githubissues

BadIdeaFactory / corporate

The corporate repository where we discuss our serious business

http://biffud.com/

MIT License

21 stars 10 forks source link

BIFFUD Style Guide #51

Closed ijanderso closed 5 years ago

ijanderso commented 6 years ago

okay, so we have a style guide in progress, but critically we want to be able to have the horizon for the logo change as a function of the time of day that the document is accessed/printed/etc. Is this possible?

DylanMoriarty commented 6 years ago

Fan of BIF.

Sure is! 🌔

slifty commented 6 years ago

Good news everyone

Sub TruHorizon™()
'
' TruHorizon™ Macro
' Rotate the BIFFUD Logo based on time of day
'
    Dim i As Long
    Dim time As Integer
    Dim rotation As Long

    time = Hour(Now) * 60 + Minute(Now)
    rotation = time / 1440 * 360
    For i = 1 To ActiveDocument.Shapes.Count
        ActiveDocument.Shapes(i).rotation = rotation
    Next i

    Application.OnTime Now + TimeValue("00:00:10"), "TruHorizon™"
End Sub

slifty commented 5 years ago

I have mixed emotions about the fact that our letterhead is far more professional now, but, still, I do have to close this since WE HAVE A WEBSITE AND BRAND