グミのすっぱいパウダーって邪魔じゃね

前から思ってたけどグミってことごとく「すっぱいパウダー」つけてくるよね。
皆大好きだよね!付けといたよ!みたいな感じでさ。
でも俺は不要だと思うんだわ。
すっぱいの欲しかったらレモングミ食べるよ(´・ω・`)
ピュレグミなんてどう考えてもつけ過ぎでしょ。
手で粉を落としてから食べてるし。(だったら食うなって感じだが)
「グミ同士がくっつかないための工夫」という側面もあったりするのだろうか…

ということをサワーズ食べながら考えてたのでした。
サワーズ美味しいです(*´ω`*)

auひかりのサポート

公式ページ分かりにくすぎ。

インターネット・電話に関するお問い合わせ│サポート│au

統合エリア検索

弾丸パイレーツのCMは狙いすぎて寒い…

(Excel)オートシェイプどうしの空間を削除する

Excelオートシェイプで画面デザインの仕様を作成してるとたまに欲しくなる。
VSにはあるんだけど何故かExcelにはないんだよね。
ということで作ってみた。

' 左右の間隔削除
'
' □ □　□　　□
' ↓
' □□□□
'
Sub DeleteSpaceHorizontal()
    Dim Sh As Shape
    Dim x As Single
    Dim y As Single
    Dim w As Single
    x = -1

    For Each Sh In Selection.ShapeRange
        If x = -1 Then
            x = Sh.Left
            w = Sh.Width
        Else
            Sh.Left = x + w

            x = Sh.Left
            w = Sh.Width
        End If
    Next Sh
End Sub


' 上下の間隔削除
Sub DeleteSpaceVertical()
    Dim Sh As Shape
    Dim x As Single
    Dim y As Single
    Dim h As Single
    y = -1

    For Each Sh In Selection.ShapeRange
        If y = -1 Then
            y = Sh.Top
            h = Sh.Height
        Else
            Sh.Top = y + h

            y = Sh.Top
            h = Sh.Height
        End If
    Next Sh
End Sub


ついでに複数のオートシェイプでサイズを揃えるマクロも作った。

' 同じサイズに揃える 幅
' (位置は変えない)
'
' [ ][] [  ]   [] → [ ][ ] [ ]   [ ]
'
Sub AlignShapeWidth()
    Dim Sh As Shape
    Dim w As Single
    w = -1

    For Each Sh In Selection.ShapeRange
        If w = -1 Then
            w = Sh.Width
        Else
            Sh.Width = w
        End If
    Next Sh
End Sub


' 同じサイズに揃える 高さ
' (位置は変えない)
Sub AlignShapeHeight()
    Dim Sh As Shape
    Dim h As Single
    h = -1

    For Each Sh In Selection.ShapeRange
        If h = -1 Then
            h = Sh.Height
        Else
            Sh.Height = h
        End If
    Next Sh
End Sub


' 同じサイズに揃える
' (位置は変えない)
Sub AlignShapeSize()
    AlignShapeWidth
    AlignShapeHeight
End Sub


バイオハザード6 グロすぎる・・・

さきほどPC版 バイオハザード6のベンチマークを試しました。
結果はS判定だそうです。
5を遊んだ環境であれば6も問題なく遊べそうな感じですねぇ。
途中でフレームレートが30切ったのは少し気になりますが それは良いとして…

ベンチマークについてた
プロモーションムービーがグロすぎる:(；ﾞﾟ'ωﾟ'):

5は別に何とも思ってなかったんですが、6は明らかにグロレベルが上がってますね！
さすがにグロすぎて引きました。
もう何か途中から笑えましたｗｗｗ
これはやばいｗｗｗ
グロ耐性無い人が見たらトラウマになりますね。
何と言っても節足動物のオンパレード！独壇場！何伸ばしてんだ！おい！こら振り回すな！
もういい！やめて！飛ばないで！

▂▅▇█▓▒░(’ω’)░▒▓█▇▅▂うわあああああああ

Gが嫌いな人は見ないほうがいいです。