空談録

世界で5人くらいに役立ちたい

Office 2016で追加された図形のスタイルについて

調べたけど特に使うことはない模様…

What's new in Excel 2016 for Windows - Excel のQuick Shape Formattingのところにある通りOffice 2016では図形のスタイルで選べるものが増えてます
というわけでとりあえず並べてみました

MSO.dllを2013と2016で比較すると、MsoShapeStyleIndexに次のものが追加されています

・MsoShapeStyleIndex.msoShapeStylePreset43 ~ MsoShapeStyleIndex.msoShapeStylePreset77 (value:43 ~ 77)
・MsoShapeStyleIndex.msoLineStylePreset22 ~ MsoShapeStyleIndex.msoLineStylePreset42 (value:10022 ~ 10042)

これをVBAのマクロか何かでだばーっと追加しましょう
使ったコードはこんな感じ

Sub Macro1(d As Single)
    ActiveSheet.Shapes.AddConnector(msoConnectorStraight, (d * 10#) + 100#, 100, (d * 10#) + 100#, 300) _
        .Select
    With Selection.ShapeRange.Line
        .Visible = msoTrue
        .Weight = 3
    End With
    Selection.ShapeRange.ShapeStyle = 10021 + d
End Sub

こっちは線ですね。Shapeもほとんど同じ

というわけで並べた結果がこんな感じです
f:id:fantasticswallow:20150924122214p:plain

f:id:fantasticswallow:20150924122224p:plain

で、これはリボンのどこかというと、次の画像の"標準スタイル"の部分が追加されたスタイルだと特定できます

f:id:fantasticswallow:20150924122329p:plain

そういうわけなので新しいスタイルを使いたい~と思ったら標準スタイルとかなってるところのを選びましょう
どの辺が標準なのかはわかりません


というわけでただのメモでした
新機能っぽいものを調べるの面倒くさいけどググってもまともに出てこない…ぐぬぬ
早くだれかオッフィースのプロの方が書いてほしいのですが

全く関係ないですがPowerPointのSlideShowView.LaserPointerEnabledは現在レーザーポインターを使ってるかどうかを返すようです。レーザーポインターの抑止には使えません

この辺で