グループ化された図形のコピー＆ペーストの仕方

投稿者 : 猫飼い     投稿日時 : 2024/05/22(Wed) 17:55:44     OS : Windows 11     EXCEL : Excel 2021

---

初めて掲示板を利用します。
当方、VBA初学者です。

現在、シート「タイムテーブル」のとあるセルに「1」が記入されているかつ、
とあるセルに「男性」が記入されている場合は図形「男性01」を
とあるセルに「女性が記入されている場合は図形「女性01」を
グループ化された図形のまま貼り付けを行うマクロを作成しています。

下記のようなマクロを組んだのですが、どうしてもグループ化された図形のまま貼り付けられてしまいます。
グループ化された図形のコピー＆ペーストのマクロの組み方をご教授いただきたいです。
もしくは、それ以前の問題であるのならばご指摘をお願いします。
調べてもよく分からず、困っています…
よろしくお願いします。

Sub タイムテーブル生成()

    Set timetable = Sheets("タイムテーブル")
    Set zukei = Sheets("図形マスタ")
    
        gest01 = 4
    
        If timetable.Cells(gest01, 2).Value = 1 And timetable.Cells(gest01, 4).Value = "男" Then
            zukei.Shapes("男性01").Copy
            timetable.Cells(gest01, 16).PasteSpecial Paste:=xlPasteValues

        ElseIf timetable.Cells(gest01, 2).Value = 1 And timetable.Cells(gest01, 4).Value = "女" Then
            zukei.Shapes("女性01").Copy
            timetable.Cells(gest01, 16).PasteSpecial Paste:=xlPasteValues
        End If
End Sub

投稿者 : さんこう     投稿日時 : 2024/05/22(Wed) 18:04:50

---

＞グループ化された図形のまま貼り付けを行うマクロを作成しています。
＞グループ化された図形のまま貼り付けられてしまいます。

ご希望通りのようですが、なにが問題なのでしょうか？


※コードは見ていません。

投稿者 : ピロリ     投稿日時 : 2024/05/23(Thu) 07:43:22

---

PasteSpecialメソッドではなくて、Pasteメソッドを使用してみては･･･
詳しくは、<vba paste> で調べると良いでしょう。

投稿者 : 猫飼い     投稿日時 : 2024/05/23(Thu) 10:45:17

---

■[返信 2] ピロリさん（2024-05-23 07:43:22）の記事
＞ PasteSpecialメソッドではなくて、Pasteメソッドを使用してみては･･･
＞ 詳しくは、<vba paste> で調べると良いでしょう。
＞

Pasteメソッドを使用したところ上手くいきました。ありがとうございました。

投稿者 : 猫飼い     投稿日時 : 2024/05/23(Thu) 10:47:03

---

■[返信 1] さんこうさん（2024-05-22 18:04:50）の記事
＞ ＞グループ化された図形のまま貼り付けを行うマクロを作成しています。
＞ ＞グループ化された図形のまま貼り付けられてしまいます。
＞
＞ ご希望通りのようですが、なにが問題なのでしょうか？
＞
＞
＞ ※コードは見ていません。
＞

正しくはグループ化されない図形のままで貼り付けられてしまう、でした。
解決しました。

投稿者 : 猫飼い     投稿日時 : 2024/05/23(Thu) 10:48:19

---

■[質問] 猫飼いさん（2024-05-22 17:55:44）の記事
＞ 初めて掲示板を利用します。
＞ 当方、VBA初学者です。
＞
＞ 現在、シート「タイムテーブル」のとあるセルに「1」が記入されているかつ、
＞ とあるセルに「男性」が記入されている場合は図形「男性01」を
＞ とあるセルに「女性が記入されている場合は図形「女性01」を
＞ グループ化された図形のまま貼り付けを行うマクロを作成しています。
＞
＞ 下記のようなマクロを組んだのですが、どうしてもグループ化された図形のまま貼り付けられてしまいます。
＞ グループ化された図形のコピー＆ペーストのマクロの組み方をご教授いただきたいです。
＞ もしくは、それ以前の問題であるのならばご指摘をお願いします。
＞ 調べてもよく分からず、困っています…
＞ よろしくお願いします。
＞
＞
＞
＞ Sub タイムテーブル生成()
＞
＞ Set timetable = Sheets("タイムテーブル")
＞ Set zukei = Sheets("図形マスタ")
＞
＞ gest01 = 4
＞
＞ If timetable.Cells(gest01, 2).Value = 1 And timetable.Cells(gest01, 4).Value = "男" Then
＞ zukei.Shapes("男性01").Copy
＞ timetable.Cells(gest01, 16).PasteSpecial Paste:=xlPasteValues
＞
＞ ElseIf timetable.Cells(gest01, 2).Value = 1 And timetable.Cells(gest01, 4).Value = "女" Then
＞ zukei.Shapes("女性01").Copy
＞ timetable.Cells(gest01, 16).PasteSpecial Paste:=xlPasteValues
＞ End If
＞ End Sub