mjdescy

Option Explicit

Public Sub SetActiveChartToCompletelyCoverARange()
    Call ResizeAndRepositionChart( _
        Chart:=ActiveChart, _
        Range:=AskUserToInputARange())
End Sub

Private Sub ResizeAndRepositionChart(ByRef Chart As Excel.Chart, ByRef Range As Excel.Range)
    If Chart Is Nothing Then

mjdescy

Option Explicit

Const DefaultChartHeightInInches As Double = 4#
Const DefaultChartWidthInInches As Double = 8.3

Public Sub SetActiveChartToStandardSize()
    If ActiveChart Is Nothing Then
        Exit Sub
    End If

mjdescy

Option Explicit

Const DefaultRowHeight As Double = 14.5

Public Sub IncreaseRowHeightByOneLine()
    Call SafelyAdjustRowHeightForAllRowsInRange(Range:=Selection, RowHeightAdjustment:=DefaultRowHeight)
End Sub

Public Sub DecreaseRowHeightByOneLine()
    Call SafelyAdjustRowHeightForAllRowsInRange(Range:=Selection, RowHeightAdjustment:=-DefaultRowHeight)

mjdescy

import Foundation

public struct SemanticVersionNumber: Equatable {
    public let major: Int
    public let minor: Int
    public let patch: Int

    public init?(version: String) {
        let components = version.split(separator: ".")
        guard components.count == 3 else { return nil }

mjdescy

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "DAOTemporaryTableController"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Compare Database

mjdescy

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "DAOQueryRunner"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Compare Database

mjdescy

Attribute VB_Name = "LoggedInUserName"
Option Explicit

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Function GetLoggedInUserName() As String
    Dim MaxBufferLength As Long
    MaxBufferLength = 255

mjdescy

#!/bin/tcsh

# Grab user information.
echo "PrivateInternetAccess OpenVPN Setup:"
echo "    https://www.privateinternetaccess.com/pages/client-control-panel"
echo "    -> PPTP/L2TP/SOCKS Username and Password"
echo -n "User: "
set user = $<
echo -n "Pass: "
set pass = $<

mjdescy

dir | Rename-Item -NewName { $_.name -replace "OldText", "ReplacementText" }

mjdescy

ALTER TABLE TableName DROP CONSTRAINT PrimaryKey;