シェイプ間コネクタ接続・色調べ 

2つのシェイプ間をコネクタで繋ぐ

以下の通りでごわす。

'2つのシェイプ間をコネクタでつなぐ
Sub betweenConnect()
    Dim startShape As shape
    Dim endShape As shape
    Dim connectShape As shape
    
 On Error GoTo catch
    
    '選択中シェイプの保持(1つ目の選択分)
    Set startShape = Selection.ShapeRange.Item(1)
    '選択中シェイプの保持(2つ目の選択分)
    Set endShape = Selection.ShapeRange.Item(2)
    
    '接続シェイプの誕生
    '■Type引数は右記を参照:https://learn.microsoft.com/ja-jp/office/vba/api/office.msoconnectortype
    Set connectShape = ActiveSheet.Shapes.AddConnector( _
        Type:=msoConnectorElbow, _
        BeginX:=0, _
        BeginY:=0, _
        EndX:=0, _
        EndY:=0)

    '■接続の始点位置指定(最後の引数は1:上辺、2:左辺、3:下辺、4右辺)
    connectShape.ConnectorFormat.BeginConnect ActiveSheet.Shapes(startShape.Name), 3
    '■接続の終点位置指定(最後の引数は始点位置の指定と同様)
    connectShape.ConnectorFormat.EndConnect ActiveSheet.Shapes(endShape.Name), 2
    '■終点コネクタを三角に。
    connectShape.Line.EndArrowheadStyle = msoArrowheadTriangle
    '■線の色
    connectShape.Line.ForeColor.RGB = RGB(91, 155, 213)
    '■線の太さ
    connectShape.Line.Weight = 1
    
    Exit Sub
catch:
    MsgBox "接続対象のシェイプを2つだけ選んでリトライしてね。"
End Sub

以下は色調べ。これも便利。

'使用中の線の色を調べるプロシージャ。矢印やシェイプを一つだけ選択した状態で実行し、イミディエイトウィンドウを参照
Sub currentColorCheck()
    Dim currentColorCode As Long: currentColorCode = Selection.ShapeRange.Item(1).Line.ForeColor.RGB
    Dim Red As Integer: Red = currentColorCode Mod 256
    Dim Green As Integer: Green = Int(currentColorCode / 256) Mod 256
    Dim Blue As Integer: Blue = Int(currentColorCode / 256 / 256)
    
    Debug.Print "色値:" & currentColorCode
    Debug.Print "赤:" & Red
    Debug.Print "緑:" & Green
    Debug.Print "青:" & Blue
    Debug.Print "RGB(" & Red & "," & Green; "," & Blue & ")"
End Sub

塗りつぶしの色を調べたい場合は、上記ソースの2行目を以下に変更するとOK。

    Dim currentColorCode As Long: currentColorCode = Selection.ShapeRange.Item(1).Fill.ForeColor.RGB

セルの背景色を調べたい場合は、上記ソースの2行目を以下に変更するとOK。

    Dim currentColorCode As Long: currentColorCode = Selection.Interior.Color

セルの文字色を調べたい場合は、上記ソースの2行目を以下に変更するとOK。

    Dim currentColorCode As Long: currentColorCode = Selection.Font.Color


コメント

Ingrid Moulden さん

I was wondering if you wanted to submit your new site to our free business directory? bit.ly/submit_site_4lSEZtY470R0


Zita Mojica さん

I was wondering if you wanted to submit your new site to our free business directory? https://bit.ly/submit_site_t9qPdO4E2oF2


Shawn Gresham さん

Congrats on your new site, get it listed here for free and we'll start sending people to your site bit.ly/submit_site_2


Wyatt Mulkey さん

Gplocean is a network of bloggers, web designers but also developers in Wordpress/Woocommerce market. We provide around 3000 premium plugins but also themes to download totally free : https://exon.fun/zH


Elane Postle さん

Don't let a few negative reviews hold your business back. With my help, you can boost your online reputation and attract more customers with genuine 5-star reviews. Let's work together to take your business to the next level. Go to: www.rankfast.xyz


Maria Fulford さん

Hey,

Have you guys seen the new free A.I. tool that turns your website content into videos?

Check it out here: http://furthertrends.com

-Maria

unsub from future comms: https://u.furthertrends.com


Maria Vallecillo さん

Hey,

Have you guys seen the new free A.I. tool that turns your website content into videos?

Check it out here: http://furthertrends.com

-Maria

unsub from future comms: https://u.furthertrends.com


Ramon Connelly さん

Hi skill-note.com Admin.

This is Ramon here with a quick thought about your website skill-note.com...

I’m across the internet a lot and I look at numerous business websites.

Similar to yours, many them have excellent content.

But frequently, they come up short when it comes to interacting and connecting with anybody who visits.

I realize – it’s difficult. Studies show 7 out of 10 people who land on a site, abandon it in moments without leaving any trace. You got the eyeball, but nothing else.

There’s a solution for you…

Lead Capture is a software widget that’s operates on your site, set to capture any visitor’s Name, Email address, and Phone Number. You’ll know right away they’re interested and you can call them directly to chat with them actually while they’re still on the web looking at your site.

CLICK HERE https://bit.ly/3LPltcD to experience a Live Demo with Web Visitors Into Leads now to see exactly how it works.

It might be enormous for your business – and because you’ve got that phone number, with our new SMS Text With Lead feature, you can immediately start a text (SMS) conversation – immediately… and contacting someone in that 5-minute window is 100 times more effective than reaching out 30 minutes or more later.

Moreover, with text messaging you can follow up later with new offers, content links, even just follow-up notes to continue the conversation going.

Each aspect I’ve just described is very easy to implement, cost-effective, and profitable.

CLICK HERE https://bit.ly/3LPltcD to learn what Web Visitors Into Leads can do for your business.

You might be converting up to 100X more eyeballs into leads today!

Ramon
PS: Web Visitors Into Leads offers a FREE 14 days trial – and it even includes International Long Distance Calling.
You have customers waiting to talk with you at this moment… don’t keep them waiting.
CLICK HERE https://bit.ly/3LPltcD to use Lead Capture now.

If you'd choose to unsubscribe click here https://bit.ly/3rD0G5c

Just a rapid message - the monikers and email applied in this communication, Ramon and Connelly, are stand-ins and not authentic contact details. We value transparency and desired to make sure you are aware! Should you aspire to make contact with the real individual responsible for this communication, kindly go to our site, and we’ll unite you with the right entity.


Jerrell MacCormick さん

Don't waste money on advertising to get more customers. Visit http://Jerrell.tg4.xyz


Andrea Thomas さん

am i ever going to get any support here? you don't answer phones or emails.. i'm going to just file a chargeback if you can't get back to me...

you guys are listed as support on this amazon listing https://amzn.to/49whgF0 - please get back to me asap...

-andrea


Andrea Angulo さん


I'm a bit confused. I bought this item from Amazon, and for some reason, your contact info is listed under 'Product Support.' I'm having issues with it. Can you check why your details are here? https://amzn.to/49whgF0 is the listing.. I am getting frustrated and need assistance.


Melany Alcorn さん

Hello http://okayasujun.com/vba/between_connect/ team! Noticed your site and knew immediately our expert SEO and content writing at apixelofhope.com could boost your online presence. Let’s chat about elevating your brand to new heights!


Naomi Wertheim さん

Hi there
There is a new Boss in town. Semrush started dominating the SEO tools for some time already. So, why not get yourself backlinks that Semrush says are good, right?

Semrush Backlinks v2 is here

In this plan, get backlinks that Semrush says are coming from quality domains, Domains which are having between 5k and 1.5 Million ranking keywords

More details:
https://www.strictlydigital.net/product/semrush-backlinks-v2/

Thanks and regards
Mike


Alyce Marmion さん

Hi there,

My name is Alyce from Monkey Digital,

Allow me to present to you a lifetime revenue opportunity of 35%
That's right, you can earn 35% of every order made by your affiliate for life.

Simply register with us, generate your affiliate links, and incorporate them on your website, and you are done. It takes only 5 minutes to set up everything, and the payouts are sent each month.

Click here to enroll with us today:
https://www.monkeydigital.org/affiliate-dashboard/

Think about it,
Every website owner requires the use of search engine optimization (SEO) for their website. This endeavor holds significant potential for both parties involved.

Thanks and regards
Alyce Marmion
Monkey Digital


Albert Claborn さん

Whats up!? I immediately thought of you all at okayasujun.com when I got this. Lemme know how it goes for you!

I just discovered a special trial offer to boost website traffic that seems too good to pass up for any online business. explore their unique traffic boosting methods with the special trial: https://www.socialsurge.ai/recommends/boost-website-traffic-special-trial/


Mittie Haffner さん

Dear Sir,

We provide country targeted website visitors and social media services.

Website Traffic, SEO Services, Backlinks, Google Reviews, Classified ADS, Social Followers etc
If you are interested then please visit our website.

https://webstraffics.com

Thanks
Webs Traffics


Carrol Goldberg さん

We will create a custom website design tailored to your specific business needs,
which are of the highest quality at affordable prices.

FREE BASIC MOCK-UP DESIGN BEFORE WORK

Contact us at https://websdesign.co/

Services Offered by us :-

1. Website Design
2. Graphics Design
3. Seo Services
4. eCommerce Development
5. Mobile App development
6. Explainer Video
7. Article Writing
8. Website Fixing
9. Website Traffic

Are you looking for a new website, or you want to revamp your old one to a modern,
fresh look with a responsive mobile layout? We are here to help you out.

Contact us at https://websdesign.co/

Thanks
Webs Design


Gabriella Yeager さん

Hi there,

My name is Gabriella from Monkey Digital,

Allow me to present to you a lifetime revenue opportunity of 35%
That's right, you can earn 35% of every order made by your affiliate for life.

Simply register with us, generate your affiliate links, and incorporate them on your website, and you are done. It takes only 5 minutes to set up everything, and the payouts are sent each month.

Click here to enroll with us today:
https://www.monkeydigital.org/affiliate-dashboard/

Think about it,
Every website owner requires the use of search engine optimization (SEO) for their website. This endeavor holds significant potential for both parties involved.

Thanks and regards
Gabriella Yeager
Monkey Digital


Odette Crowther さん

Hi there,

My name is Odette from Monkey Digital,

Allow me to present to you a lifetime revenue opportunity of 35%
That's right, you can earn 35% of every order made by your affiliate for life.

Simply register with us, generate your affiliate links, and incorporate them on your website, and you are done. It takes only 5 minutes to set up everything, and the payouts are sent each month.

Click here to enroll with us today:
https://www.monkeydigital.org/affiliate-dashboard/

Think about it,
Every website owner requires the use of search engine optimization (SEO) for their website. This endeavor holds significant potential for both parties involved.

Thanks and regards
Odette Crowther
Monkey Digital


Vilma Bourne さん

Hi there

Just checked your skill-note.com's baclink profile, I noticed a moderate percentage of toxic links pointing to your website

We will investigate each link for its toxicity and perform a professional clean up for you free of charge.

Start recovering your ranks today:
https://www.hilkom-digital.com/free-backlinks-clean-up/

Thanks and regards
Mike