2015/06/30 追記: URL Shortener APIもAPIキーが必要になったようです。キーの取得方法はコチラの記事で解説しています。 Google URL Shortener APIを使って短縮URLを取得するコードです。 APIキーの利用が推奨されているので、キーをお持ちの場合はurl部分を変更してください。 Option Explicit Public Sub Sample() Debug.Print GetShortenedLinkGoogl("http://www.ka-net.org/") End Sub Public Function GetShortenedLinkGoogl(ByVal target As String) As String 'Google URL Shortenerで短縮URL取得 Dim dat As Variant Dim ret As