[[20200730154428]]　『マクロでスライサーの位置を指定したい場合』（あいち）　ページの最後に飛ぶ

『マクロでスライサーの位置を指定したい場合』（あいち）

マクロの記録で10個スライサーを作成した所下記のコードになりました。

    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "書籍名"). _
        Slicers.Add ActiveSheet, , "書籍名", "書籍名", 9, 231, 144, 176.25
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "NO."). _
        Slicers.Add ActiveSheet, , "NO.", "NO.", 46.5, 268.5, 144, 176.25
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "担当"). _
        Slicers.Add ActiveSheet, , "担当", "担当", 84, 306, 144, 176.25
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "地域"). _
        Slicers.Add ActiveSheet, , "地域", "地域", 121.5, 343.5, 144, 176.25
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "保管場所"). _
        Slicers.Add ActiveSheet, , "保管場所", "保管場所", 159, 381, 144, 176.25
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "発行元"). _
        Slicers.Add ActiveSheet, , "発行元", "発行元", 196.5, 418.5, 144, 176.25
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "グループ"). _
        Slicers.Add ActiveSheet, , "グループ", "グループ", 234, 456, 144, 176.25
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "メディア"). _
        Slicers.Add ActiveSheet, , "メディア", "メディア", 271.5, 493.5, 144, 176.25
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "停止"). _
        Slicers.Add ActiveSheet, , "停止", "停止", 309, 531, 144, 176.25
    ActiveWorkbook.SlicerCaches.Add2(ActiveSheet.ListObjects("テーブル1"), "公開"). _
        Slicers.Add ActiveSheet, , "公開", "公開", 346.5, 568.5, 144, 176.25
    ActiveSheet.Shapes.Range(Array("公開")).Select
～～～～～～～～～～～～～～～～～～～～～～～～～～～～
 ActiveSheet.Shapes.Range(Array("書籍名")).Select
    ActiveSheet.Shapes("書籍名").IncrementLeft -230.25
    ActiveSheet.Shapes("書籍名").IncrementTop 70.5
～～～～～～～～～～～～～～～～～～～～～～～～～～～～

この後一つずつ選択して指定の値まで移動させているのですが、
コードがすごく長くて見ずらいのです。
指定の値はA2に5個重ならないよう横並びに、残り5個はA13から同じように横並びにしたいのです。
最初の時点で指定の値に移動するようにするにはどうしたら良いのでしょうか？
並びの順番は特に指定がないので、とりあえず同じシートにスライサーが並んであることが希望です。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

スライサーと言ってもShapeオブジェクトですから、
「オブジェクトの選択」機能を使ってまとめて選択して、
それを希望する箇所に移動する、
という処理を行って、そのマクロ記録をとったらいかがでしょうか。
ご自分の納得する位置に配置すればよいかと思います。
そのマクロを今のコードのあとに追加します。

そうした修正は好まないということであれば、
図形のLeft,Top,Width,Heightなどの要素をご自分で規則的に作成して、
現行のコードを修正されたらいかがでしょうか。

（γ） 2020/07/30(木) 17:06

コメント返信：

[ 一覧(最新更新順) ]

[[20200730154428]] 『 マクロでスライサーの位置を指定したい場合』（あいち） ページの最後に飛ぶ

[[20200730154428]]　『マクロでスライサーの位置を指定したい場合』（あいち）　ページの最後に飛ぶ