質問編集履歴
2
わかりにくい表現を修正しました
test
CHANGED
|
@@ -1 +1 @@
|
|
|
1
|
-
xlwingsで図形にマクロを
|
|
1
|
+
xlwingsで図形にマクロを登録したい (結構困っています)
|
test
CHANGED
|
@@ -4,7 +4,11 @@
|
|
|
4
4
|
|
|
5
5
|
※水色ハイライトの関数を図形に登録したい
|
|
6
6
|
|
|
7
|
-
- **図形をクリックした際にVBAの関数を発火させるコードを教えていただ
|
|
7
|
+
- **図形をクリックした際にVBAの関数を発火させるコードを教えていただけないでしょうか？**
|
|
8
|
+
|
|
9
|
+
- xlwingsで実装が**不可な場合、外部からのプログラミングで上記太文字を満たす手段**を教えてもらえないでしょうか？
|
|
10
|
+
|
|
11
|
+
(言語・ライブラリはなんでもOKです)
|
|
8
12
|
|
|
9
13
|
|
|
10
14
|
|
|
@@ -22,9 +26,11 @@
|
|
|
22
26
|
|
|
23
27
|
### 該当のソースコード / 試したこと
|
|
24
28
|
|
|
25
|
-
- OnActionプロパティが
|
|
29
|
+
- ShapeオブジェクトにOnActionプロパティが無さそう(デバッガより確認)
|
|
26
30
|
|
|
27
31
|
- ```shape.OnAction="マクロ名"```で代入はできるが、実際にExcelを開いたときマクロは登録されていない
|
|
32
|
+
|
|
33
|
+
|
|
28
34
|
|
|
29
35
|
```python
|
|
30
36
|
|
|
@@ -44,6 +50,8 @@
|
|
|
44
50
|
|
|
45
51
|
for shape in sheet.shapes:
|
|
46
52
|
|
|
53
|
+
# ファイル名!Sheet1.isClicked してもNGだった
|
|
54
|
+
|
|
47
55
|
shape.OnAction = "Sheet1.isClicked"
|
|
48
56
|
|
|
49
57
|
work_book.save(path)
|
|
@@ -58,10 +66,10 @@
|
|
|
58
66
|
|
|
59
67
|
VBA Shapeオブジェクト
|
|
60
68
|
|
|
61
|
-
> https://docs.microsoft.com/ja-jp/office/vba/api/excel.shape
|
|
69
|
+
> [https://docs.microsoft.com/ja-jp/office/vba/api/excel.shape](https://docs.microsoft.com/ja-jp/office/vba/api/excel.shape)
|
|
62
70
|
|
|
63
71
|
|
|
64
72
|
|
|
65
73
|
xlwings Shapeオブジェクト
|
|
66
74
|
|
|
67
|
-
> https://docs.xlwings.org/ja/latest/api.html?highlight=shape#shape
|
|
75
|
+
> [リンク内容](https://docs.xlwings.org/ja/latest/api.html?highlight=shape#shape)
|
1
公式ドキュメントのURLを追記しました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,7 +24,7 @@
|
|
|
24
24
|
|
|
25
25
|
- OnActionプロパティがShapeオブジェクトに無さそうなため、マクロを図形に登録できない
|
|
26
26
|
|
|
27
|
-
|
|
27
|
+
- ```shape.OnAction="マクロ名"```で代入はできるが、実際にExcelを開いたときマクロは登録されていない
|
|
28
28
|
|
|
29
29
|
```python
|
|
30
30
|
|
|
@@ -51,3 +51,17 @@
|
|
|
51
51
|
print("save")
|
|
52
52
|
|
|
53
53
|
```
|
|
54
|
+
|
|
55
|
+
|
|
56
|
+
|
|
57
|
+
### 公式ドキュメント
|
|
58
|
+
|
|
59
|
+
VBA Shapeオブジェクト
|
|
60
|
+
|
|
61
|
+
> https://docs.microsoft.com/ja-jp/office/vba/api/excel.shape
|
|
62
|
+
|
|
63
|
+
|
|
64
|
+
|
|
65
|
+
xlwings Shapeオブジェクト
|
|
66
|
+
|
|
67
|
+
> https://docs.xlwings.org/ja/latest/api.html?highlight=shape#shape
|